/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / CDROM / CD-Finder / CD-Finder_demo.s

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| f9 fa f9 fa 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 3b 20 43 44 |........|....; CD|
|00000030| 2d 46 69 6e 64 65 72 0a | 3b 20 0a 3b 20 28 63 29 |-Finder.|; .; (c)|
|00000040| 20 31 39 39 37 20 43 79 | 62 6f 72 67 20 0a 0a 09 | 1997 Cy|borg ...|
|00000050| 49 6e 63 44 69 72 20 09 | 22 53 79 73 3a 43 6f 64 |IncDir .|"Sys:Cod|
|00000060| 65 72 2f 22 0a 09 49 6e | 63 6c 75 64 65 20 20 20 |er/"..In|clude   |
|00000070| 20 20 22 50 72 65 61 73 | 73 2f 4b 6f 6e 73 74 61 |  "Preas|s/Konsta|
|00000080| 6e 74 65 6e 2e 69 6e 63 | 22 0a 09 49 6e 63 6c 75 |nten.inc|"..Inclu|
|00000090| 64 65 20 20 20 20 20 22 | 50 72 65 61 73 73 2f 41 |de     "|Preass/A|
|000000a0| 53 4c 5f 6c 69 62 2e 69 | 6e 63 22 0a 20 20 20 20 |SL_lib.i|nc".    |
|000000b0| 49 6e 63 6c 75 64 65 20 | 20 20 20 20 22 50 72 65 |Include |    "Pre|
|000000c0| 61 73 73 2f 69 6e 74 75 | 69 74 69 6f 6e 2e 69 6e |ass/intu|ition.in|
|000000d0| 63 22 0a 20 20 20 20 49 | 6e 63 6c 75 64 65 20 20 |c".    I|nclude  |
|000000e0| 20 20 20 22 49 6e 63 6c | 75 64 65 2f 47 75 69 65 |   "Incl|ude/Guie|
|000000f0| 6e 76 2e 69 22 0a 20 20 | 20 20 49 6e 63 6c 75 64 |nv.i".  |  Includ|
|00000100| 65 20 20 20 20 20 22 49 | 6e 63 6c 75 64 65 2f 4c |e     "I|nclude/L|
|00000110| 69 62 72 61 72 69 65 73 | 2f 67 61 64 74 6f 6f 6c |ibraries|/gadtool|
|00000120| 73 2e 69 22 0a 0a 4d 61 | 69 6e 3a 0a 09 49 6e 63 |s.i"..Ma|in:..Inc|
|00000130| 6c 75 64 65 20 22 70 72 | 65 61 73 73 2f 53 74 61 |lude "pr|eass/Sta|
|00000140| 72 74 75 70 2e 69 22 0a | 09 4a 73 72 20 4f 70 65 |rtup.i".|.Jsr Ope|
|00000150| 6e 6c 69 62 73 0a 09 54 | 73 74 2e 6c 20 44 30 0a |nlibs..T|st.l D0.|
|00000160| 09 42 65 71 20 4d 61 69 | 6e 65 6e 64 65 0a 09 4a |.Beq Mai|nende..J|
|00000170| 73 72 20 53 54 41 52 54 | 0a 4d 61 69 6e 65 6e 64 |sr START|.Mainend|
|00000180| 65 3a 0a 09 6a 73 72 20 | 43 6c 6f 73 65 6c 69 62 |e:..jsr |Closelib|
|00000190| 73 0a 09 4d 6f 76 65 2e | 6c 20 45 72 72 6f 72 2c |s..Move.|l Error,|
|000001a0| 64 30 0a 09 74 73 74 2e | 6c 20 64 30 0a 09 62 65 |d0..tst.|l d0..be|
|000001b0| 71 20 2e 6c 31 0a 09 6a | 6d 70 20 45 72 72 6f 72 |q .l1..j|mp Error|
|000001c0| 48 61 6e 64 6c 69 6e 67 | 0a 2e 6c 31 3a 09 52 74 |Handling|..l1:.Rt|
|000001d0| 73 0a 0a 20 20 20 20 4d | 6f 64 65 5f 4e 6f 43 61 |s..    M|ode_NoCa|
|000001e0| 73 65 3d 20 31 30 30 0a | 20 20 20 20 4d 6f 64 65 |se= 100.|    Mode|
|000001f0| 5f 43 61 73 65 3d 20 20 | 20 30 0a 0a 0a 46 69 6c |_Case=  | 0...Fil|
|00000200| 65 52 65 71 3a 0a 20 20 | 20 20 20 4d 6f 76 65 2e |eReq:.  |   Move.|
|00000210| 6c 20 41 30 2c 4c 6f 6b | 61 6c 53 63 72 65 65 6e |l A0,Lok|alScreen|
|00000220| 0a 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 41 73 6c |.     Mo|ve.l Asl|
|00000230| 42 61 73 65 2c 61 36 0a | 20 20 20 20 20 4d 6f 76 |Base,a6.|     Mov|
|00000240| 65 2e 6c 20 23 41 53 4c | 5f 46 69 6c 65 52 65 71 |e.l #ASL|_FileReq|
|00000250| 75 65 73 74 2c 64 30 0a | 20 20 20 20 20 4d 6f 76 |uest,d0.|     Mov|
|00000260| 65 2e 6c 20 23 30 2c 61 | 30 0a 20 20 20 20 20 4a |e.l #0,a|0.     J|
|00000270| 73 72 20 41 6c 6c 6f 63 | 41 73 6c 52 65 71 75 65 |sr Alloc|AslReque|
|00000280| 73 74 28 61 36 29 0a 20 | 20 20 20 20 4d 6f 76 65 |st(a6). |    Move|
|00000290| 2e 6c 20 44 30 2c 52 65 | 71 75 65 73 74 65 72 0a |.l D0,Re|quester.|
|000002a0| 20 20 20 20 20 54 73 74 | 2e 6c 20 52 65 71 75 65 |     Tst|.l Reque|
|000002b0| 73 74 65 72 0a 20 20 20 | 20 20 42 65 71 20 2e 53 |ster.   |  Beq .S|
|000002c0| 65 6c 65 63 74 32 0a 20 | 20 20 20 20 6d 6f 76 65 |elect2. |    move|
|000002d0| 2e 6c 20 23 41 53 4c 46 | 52 5f 54 61 67 6c 69 73 |.l #ASLF|R_Taglis|
|000002e0| 74 2c 61 30 0a 20 20 20 | 20 20 6d 6f 76 65 2e 6c |t,a0.   |  move.l|
|000002f0| 20 4c 6f 6b 61 6c 53 63 | 72 65 65 6e 2c 34 28 61 | LokalSc|reen,4(a|
|00000300| 30 29 0a 20 20 20 20 20 | 4d 6f 76 65 2e 6c 20 52 |0).     |Move.l R|
|00000310| 65 71 75 65 73 74 65 72 | 2c 61 30 0a 20 20 20 20 |equester|,a0.    |
|00000320| 20 4d 6f 76 65 2e 6c 20 | 23 41 53 4c 46 52 5f 54 | Move.l |#ASLFR_T|
|00000330| 61 67 6c 69 73 74 2c 61 | 31 0a 20 20 20 20 20 4a |aglist,a|1.     J|
|00000340| 73 72 20 41 53 4c 52 65 | 71 75 65 73 74 28 61 36 |sr ASLRe|quest(a6|
|00000350| 29 0a 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |).     M|ove.l D0|
|00000360| 2c 52 65 73 75 6c 74 0a | 20 20 20 20 20 20 20 20 |,Result.|        |
|00000370| 54 73 74 2e 6c 20 52 65 | 73 75 6c 74 0a 20 20 20 |Tst.l Re|sult.   |
|00000380| 20 20 20 20 20 42 65 71 | 20 2e 53 65 6c 65 63 74 |     Beq| .Select|
|00000390| 32 0a 20 20 20 20 20 20 | 20 20 43 6c 72 2e 6c 20 |2.      |  Clr.l |
|000003a0| 44 30 0a 20 20 20 20 20 | 20 20 20 4d 6f 76 65 2e |D0.     |   Move.|
|000003b0| 6c 20 52 65 71 75 65 73 | 74 65 72 2c 41 30 0a 20 |l Reques|ter,A0. |
|000003c0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 34 28 |       M|ove.l 4(|
|000003d0| 41 30 29 2c 44 30 0a 20 | 20 20 20 20 20 20 20 4d |A0),D0. |       M|
|000003e0| 6f 76 65 2e 6c 20 44 30 | 2c 46 69 6c 65 6e 61 6d |ove.l D0|,Filenam|
|000003f0| 65 5f 5a 65 69 67 65 72 | 0a 20 20 20 20 20 20 20 |e_Zeiger|.       |
|00000400| 20 43 6c 72 2e 6c 20 44 | 30 0a 20 20 20 20 20 20 | Clr.l D|0.      |
|00000410| 20 20 4d 6f 76 65 2e 6c | 20 52 65 71 75 65 73 74 |  Move.l| Request|
|00000420| 65 72 2c 41 30 0a 20 20 | 20 20 20 20 20 20 4d 6f |er,A0.  |      Mo|
|00000430| 76 65 2e 6c 20 38 28 41 | 30 29 2c 44 30 0a 20 20 |ve.l 8(A|0),D0.  |
|00000440| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 44 30 2c |      Mo|ve.l D0,|
|00000450| 44 69 72 6e 61 6d 65 5f | 7a 65 69 67 65 72 0a 20 |Dirname_|zeiger. |
|00000460| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 45 78 |       M|ove.l Ex|
|00000470| 65 63 42 61 73 65 2c 61 | 36 0a 20 20 20 20 20 20 |ecBase,a|6.      |
|00000480| 20 20 4d 6f 76 65 2e 6c | 20 44 69 72 6e 61 6d 65 |  Move.l| Dirname|
|00000490| 5f 7a 65 69 67 65 72 2c | 61 30 0a 20 20 20 20 20 |_zeiger,|a0.     |
|000004a0| 20 20 20 4d 6f 76 65 2e | 6c 20 23 44 69 72 6e 61 |   Move.|l #Dirna|
|000004b0| 6d 65 2c 61 31 0a 20 20 | 20 20 20 20 20 20 4d 6f |me,a1.  |      Mo|
|000004c0| 76 65 2e 6c 20 23 31 30 | 30 2c 64 30 0a 20 20 20 |ve.l #10|0,d0.   |
|000004d0| 20 20 20 20 20 4a 73 72 | 20 43 6f 70 79 6d 65 6d |     Jsr| Copymem|
|000004e0| 28 61 36 29 0a 20 20 20 | 20 20 20 20 20 4d 6f 76 |(a6).   |     Mov|
|000004f0| 65 2e 6c 20 46 69 6c 65 | 6e 61 6d 65 5f 7a 65 69 |e.l File|name_zei|
|00000500| 67 65 72 2c 61 30 0a 20 | 20 20 20 20 20 20 20 4d |ger,a0. |       M|
|00000510| 6f 76 65 2e 6c 20 23 4e | 61 6d 65 2c 61 31 0a 20 |ove.l #N|ame,a1. |
|00000520| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 31 |       M|ove.l #1|
|00000530| 30 30 2c 64 30 0a 20 20 | 20 20 20 20 20 20 4a 73 |00,d0.  |      Js|
|00000540| 72 20 43 6f 70 79 6d 65 | 6d 28 61 36 29 0a 20 20 |r Copyme|m(a6).  |
|00000550| 20 20 20 20 20 20 4c 65 | 61 20 4e 61 6d 65 5f 42 |      Le|a Name_B|
|00000560| 61 6b 2c 61 30 0a 20 20 | 20 20 20 20 20 20 6d 6f |ak,a0.  |      mo|
|00000570| 76 65 2e 6c 20 44 69 72 | 6e 61 6d 65 5f 7a 65 69 |ve.l Dir|name_zei|
|00000580| 67 65 72 2c 61 31 0a 2e | 53 65 6c 31 3a 20 20 6d |ger,a1..|Sel1:  m|
|00000590| 6f 76 65 2e 62 20 28 61 | 31 29 2b 2c 28 61 30 29 |ove.b (a|1)+,(a0)|
|000005a0| 2b 0a 20 20 20 20 20 20 | 20 20 63 6d 70 69 2e 62 |+.      |  cmpi.b|
|000005b0| 20 23 30 2c 28 61 31 29 | 0a 20 20 20 20 20 20 20 | #0,(a1)|.       |
|000005c0| 20 62 6e 65 20 2e 73 65 | 6c 31 0a 20 20 20 20 20 | bne .se|l1.     |
|000005d0| 20 20 20 63 6d 70 69 2e | 62 20 23 22 3a 22 2c 2d |   cmpi.|b #":",-|
|000005e0| 31 28 61 30 29 0a 20 20 | 20 20 20 20 20 20 62 65 |1(a0).  |      be|
|000005f0| 71 20 2e 73 65 6c 31 32 | 0a 20 20 20 20 20 20 20 |q .sel12|.       |
|00000600| 20 6d 6f 76 65 2e 62 20 | 23 22 2f 22 2c 28 61 30 | move.b |#"/",(a0|
|00000610| 29 2b 0a 2e 73 65 6c 31 | 32 3a 20 6d 6f 76 65 2e |)+..sel1|2: move.|
|00000620| 6c 20 46 69 6c 65 6e 61 | 6d 65 5f 7a 65 69 67 65 |l Filena|me_zeige|
|00000630| 72 2c 61 31 0a 2e 53 65 | 6c 32 3a 20 20 6d 6f 76 |r,a1..Se|l2:  mov|
|00000640| 65 2e 62 20 28 61 31 29 | 2b 2c 28 61 30 29 2b 0a |e.b (a1)|+,(a0)+.|
|00000650| 20 20 20 20 20 20 20 20 | 63 6d 70 69 2e 62 20 23 |        |cmpi.b #|
|00000660| 30 2c 28 61 31 29 0a 20 | 20 20 20 20 20 20 20 62 |0,(a1). |       b|
|00000670| 6e 65 20 2e 73 65 6c 32 | 0a 20 20 20 20 20 20 20 |ne .sel2|.       |
|00000680| 20 6d 6f 76 65 2e 62 20 | 23 30 2c 28 61 30 29 2b | move.b |#0,(a0)+|
|00000690| 0a 2e 53 65 6c 65 63 74 | 32 3a 0a 20 20 20 20 20 |..Select|2:.     |
|000006a0| 20 20 20 54 73 74 2e 6c | 20 52 65 71 75 65 73 74 |   Tst.l| Request|
|000006b0| 65 72 0a 20 20 20 20 20 | 20 20 20 42 65 71 20 2e |er.     |   Beq .|
|000006c0| 6c 61 62 31 0a 20 20 20 | 20 20 20 20 20 4d 6f 76 |lab1.   |     Mov|
|000006d0| 65 2e 6c 20 41 73 6c 42 | 61 73 65 2c 61 36 0a 20 |e.l AslB|ase,a6. |
|000006e0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 52 65 |       M|ove.l Re|
|000006f0| 71 75 65 73 74 65 72 2c | 61 30 0a 20 20 20 20 20 |quester,|a0.     |
|00000700| 20 20 20 4a 73 72 20 46 | 72 65 65 41 53 4c 52 65 |   Jsr F|reeASLRe|
|00000710| 71 75 65 73 74 28 61 36 | 29 0a 2e 6c 61 62 31 3a |quest(a6|)..lab1:|
|00000720| 20 20 52 54 53 0a 0a 46 | 69 6c 6c 42 75 66 66 65 |  RTS..F|illBuffe|
|00000730| 72 3a 0a 20 20 20 20 73 | 75 62 71 2e 6c 20 23 31 |r:.    s|ubq.l #1|
|00000740| 2c 64 31 0a 2e 6c 31 3a | 6d 6f 76 65 2e 62 20 64 |,d1..l1:|move.b d|
|00000750| 30 2c 28 61 30 29 2b 0a | 20 20 20 20 64 62 72 61 |0,(a0)+.|    dbra|
|00000760| 20 20 64 31 2c 2e 6c 31 | 0a 20 20 20 20 52 54 53 |  d1,.l1|.    RTS|
|00000770| 0a 0a 43 6f 6e 76 65 72 | 74 5a 61 68 6c 3a 0a 20 |..Conver|tZahl:. |
|00000780| 20 20 20 4d 6f 76 65 2e | 6c 20 23 22 20 20 20 20 |   Move.|l #"    |
|00000790| 22 2c 5a 75 73 61 74 7a | 0a 20 20 20 20 4d 6f 76 |",Zusatz|.    Mov|
|000007a0| 65 2e 6c 20 23 22 20 20 | 20 30 22 2c 5a 61 68 6c |e.l #"  | 0",Zahl|
|000007b0| 0a 43 6f 6e 76 65 72 74 | 5a 61 68 6c 31 3a 0a 20 |.Convert|Zahl1:. |
|000007c0| 20 20 20 4d 6f 76 65 6d | 2e 6c 20 61 30 2d 61 35 |   Movem|.l a0-a5|
|000007d0| 2c 2d 28 73 70 29 0a 20 | 20 20 20 4c 65 61 20 5a |,-(sp). |   Lea Z|
|000007e0| 75 73 61 74 7a 2c 61 30 | 0a 20 20 20 20 43 6d 70 |usatz,a0|.    Cmp|
|000007f0| 69 2e 6c 20 23 30 2c 64 | 37 0a 20 20 20 20 62 70 |i.l #0,d|7.    bp|
|00000800| 6c 20 2e 6c 30 0a 20 20 | 20 20 4e 65 67 2e 6c 20 |l .l0.  |  Neg.l |
|00000810| 64 37 0a 20 20 20 20 6d | 6f 76 65 2e 62 20 23 22 |d7.    m|ove.b #"|
|00000820| 2d 22 2c 7a 61 68 6c 0a | 20 20 20 20 43 6d 70 69 |-",zahl.|    Cmpi|
|00000830| 2e 6c 20 23 39 39 39 39 | 2c 64 37 0a 20 20 20 20 |.l #9999|,d7.    |
|00000840| 62 67 74 20 2e 6c 30 0a | 20 20 20 20 6d 6f 76 65 |bgt .l0.|    move|
|00000850| 2e 62 20 23 22 2d 22 2c | 7a 75 73 61 74 7a 0a 2e |.b #"-",|zusatz..|
|00000860| 6c 30 3a 4d 6f 76 65 2e | 6c 20 64 37 2c 64 30 0a |l0:Move.|l d7,d0.|
|00000870| 20 20 20 20 4d 6f 76 65 | 51 2e 6c 20 23 2d 31 2c |    Move|Q.l #-1,|
|00000880| 64 31 0a 2e 6c 31 3a 41 | 64 64 51 2e 6c 20 23 31 |d1..l1:A|ddQ.l #1|
|00000890| 2c 64 31 0a 20 20 20 20 | 53 75 62 69 2e 6c 20 23 |,d1.    |Subi.l #|
|000008a0| 31 30 30 30 30 30 30 30 | 2c 64 30 0a 20 20 20 20 |10000000|,d0.    |
|000008b0| 42 70 6c 20 2e 6c 31 0a | 20 20 20 20 41 64 64 69 |Bpl .l1.|    Addi|
|000008c0| 2e 6c 20 23 31 30 30 30 | 30 30 30 30 2c 64 30 0a |.l #1000|0000,d0.|
|000008d0| 20 20 20 20 61 64 64 69 | 2e 6c 20 23 24 33 30 2c |    addi|.l #$30,|
|000008e0| 64 31 0a 20 20 20 20 63 | 6d 70 69 2e 62 20 23 22 |d1.    c|mpi.b #"|
|000008f0| 30 22 2c 64 31 0a 20 20 | 20 20 42 65 71 20 2e 6c |0",d1.  |  Beq .l|
|00000900| 31 31 0a 20 20 20 20 6d | 6f 76 65 2e 62 20 64 31 |11.    m|ove.b d1|
|00000910| 2c 30 28 61 30 29 0a 2e | 6c 31 31 3a 4d 6f 76 65 |,0(a0)..|l11:Move|
|00000920| 51 2e 6c 20 23 2d 31 2c | 64 31 0a 2e 6c 32 3a 41 |Q.l #-1,|d1..l2:A|
|00000930| 64 64 51 2e 6c 20 23 31 | 2c 64 31 0a 20 20 20 20 |ddQ.l #1|,d1.    |
|00000940| 53 75 62 69 2e 6c 20 23 | 31 30 30 30 30 30 30 2c |Subi.l #|1000000,|
|00000950| 64 30 0a 20 20 20 20 42 | 70 6c 20 2e 6c 32 0a 20 |d0.    B|pl .l2. |
|00000960| 20 20 20 41 64 64 69 2e | 6c 20 23 31 30 30 30 30 |   Addi.|l #10000|
|00000970| 30 30 2c 64 30 0a 20 20 | 20 20 61 64 64 69 2e 6c |00,d0.  |  addi.l|
|00000980| 20 23 24 33 30 2c 64 31 | 0a 20 20 20 20 63 6d 70 | #$30,d1|.    cmp|
|00000990| 69 2e 62 20 23 22 20 22 | 2c 30 28 61 30 29 0a 20 |i.b #" "|,0(a0). |
|000009a0| 20 20 20 62 6e 65 20 2e | 6c 32 32 0a 20 20 20 20 |   bne .|l22.    |
|000009b0| 63 6d 70 69 2e 62 20 23 | 22 30 22 2c 64 31 0a 20 |cmpi.b #|"0",d1. |
|000009c0| 20 20 20 42 65 71 20 2e | 6c 32 31 0a 2e 6c 32 32 |   Beq .|l21..l22|
|000009d0| 3a 0a 20 20 20 20 6d 6f | 76 65 2e 62 20 64 31 2c |:.    mo|ve.b d1,|
|000009e0| 31 28 61 30 29 0a 2e 6c | 32 31 3a 4d 6f 76 65 51 |1(a0)..l|21:MoveQ|
|000009f0| 2e 6c 20 23 2d 31 2c 64 | 31 0a 2e 6c 33 3a 41 64 |.l #-1,d|1..l3:Ad|
|00000a00| 64 51 2e 6c 20 23 31 2c | 64 31 0a 20 20 20 20 53 |dQ.l #1,|d1.    S|
|00000a10| 75 62 69 2e 6c 20 23 31 | 30 30 30 30 30 2c 64 30 |ubi.l #1|00000,d0|
|00000a20| 0a 20 20 20 20 42 70 6c | 20 2e 6c 33 0a 20 20 20 |.    Bpl| .l3.   |
|00000a30| 20 41 64 64 69 2e 6c 20 | 23 31 30 30 30 30 30 2c | Addi.l |#100000,|
|00000a40| 64 30 0a 20 20 20 20 61 | 64 64 69 2e 6c 20 23 24 |d0.    a|ddi.l #$|
|00000a50| 33 30 2c 64 31 0a 20 20 | 20 20 63 6d 70 69 2e 62 |30,d1.  |  cmpi.b|
|00000a60| 20 23 22 20 22 2c 31 28 | 61 30 29 0a 20 20 20 20 | #" ",1(|a0).    |
|00000a70| 62 6e 65 20 2e 6c 33 32 | 0a 20 20 20 20 63 6d 70 |bne .l32|.    cmp|
|00000a80| 69 2e 62 20 23 22 30 22 | 2c 64 31 0a 20 20 20 20 |i.b #"0"|,d1.    |
|00000a90| 42 65 71 20 2e 6c 33 31 | 0a 2e 6c 33 32 3a 0a 20 |Beq .l31|..l32:. |
|00000aa0| 20 20 20 6d 6f 76 65 2e | 62 20 64 31 2c 32 28 61 |   move.|b d1,2(a|
|00000ab0| 30 29 0a 2e 6c 33 31 3a | 4d 6f 76 65 51 2e 6c 20 |0)..l31:|MoveQ.l |
|00000ac0| 23 2d 31 2c 64 31 0a 2e | 6c 34 3a 41 64 64 51 2e |#-1,d1..|l4:AddQ.|
|00000ad0| 6c 20 23 31 2c 64 31 0a | 20 20 20 20 53 75 62 69 |l #1,d1.|    Subi|
|00000ae0| 2e 6c 20 23 31 30 30 30 | 30 2c 64 30 0a 20 20 20 |.l #1000|0,d0.   |
|00000af0| 20 42 70 6c 20 2e 6c 34 | 0a 20 20 20 20 41 64 64 | Bpl .l4|.    Add|
|00000b00| 69 2e 6c 20 23 31 30 30 | 30 30 2c 64 30 0a 20 20 |i.l #100|00,d0.  |
|00000b10| 20 20 61 64 64 69 2e 6c | 20 23 24 33 30 2c 64 31 |  addi.l| #$30,d1|
|00000b20| 0a 20 20 20 20 63 6d 70 | 69 2e 62 20 23 22 20 22 |.    cmp|i.b #" "|
|00000b30| 2c 32 28 61 30 29 0a 20 | 20 20 20 62 6e 65 20 2e |,2(a0). |   bne .|
|00000b40| 6c 34 32 0a 20 20 20 20 | 63 6d 70 69 2e 62 20 23 |l42.    |cmpi.b #|
|00000b50| 22 30 22 2c 64 31 0a 20 | 20 20 20 42 65 71 20 2e |"0",d1. |   Beq .|
|00000b60| 6c 34 31 0a 2e 6c 34 32 | 3a 0a 20 20 20 20 6d 6f |l41..l42|:.    mo|
|00000b70| 76 65 2e 62 20 64 31 2c | 33 28 61 30 29 0a 2e 6c |ve.b d1,|3(a0)..l|
|00000b80| 34 31 3a 4d 6f 76 65 51 | 2e 6c 20 23 2d 31 2c 64 |41:MoveQ|.l #-1,d|
|00000b90| 31 0a 2e 6c 35 3a 41 64 | 64 51 2e 6c 20 23 31 2c |1..l5:Ad|dQ.l #1,|
|00000ba0| 64 31 0a 20 20 20 20 53 | 75 62 69 2e 6c 20 23 31 |d1.    S|ubi.l #1|
|00000bb0| 30 30 30 2c 64 30 0a 20 | 20 20 20 42 70 6c 20 2e |000,d0. |   Bpl .|
|00000bc0| 6c 35 0a 20 20 20 20 41 | 64 64 69 2e 6c 20 23 31 |l5.    A|ddi.l #1|
|00000bd0| 30 30 30 2c 64 30 0a 20 | 20 20 20 61 64 64 69 2e |000,d0. |   addi.|
|00000be0| 6c 20 23 24 33 30 2c 64 | 31 0a 20 20 20 20 63 6d |l #$30,d|1.    cm|
|00000bf0| 70 69 2e 62 20 23 22 20 | 22 2c 33 28 61 30 29 0a |pi.b #" |",3(a0).|
|00000c00| 20 20 20 20 62 6e 65 20 | 2e 6c 35 32 0a 20 20 20 |    bne |.l52.   |
|00000c10| 20 63 6d 70 69 2e 62 20 | 23 22 30 22 2c 64 31 0a | cmpi.b |#"0",d1.|
|00000c20| 20 20 20 20 42 65 71 20 | 2e 6c 35 31 0a 2e 6c 35 |    Beq |.l51..l5|
|00000c30| 32 3a 0a 20 20 20 20 6d | 6f 76 65 2e 62 20 64 31 |2:.    m|ove.b d1|
|00000c40| 2c 34 28 61 30 29 0a 2e | 6c 35 31 3a 4d 6f 76 65 |,4(a0)..|l51:Move|
|00000c50| 51 2e 6c 20 23 2d 31 2c | 64 31 0a 2e 6c 36 3a 41 |Q.l #-1,|d1..l6:A|
|00000c60| 64 64 51 2e 6c 20 23 31 | 2c 64 31 0a 20 20 20 20 |ddQ.l #1|,d1.    |
|00000c70| 53 75 62 69 2e 6c 20 23 | 31 30 30 2c 64 30 0a 20 |Subi.l #|100,d0. |
|00000c80| 20 20 20 42 70 6c 20 2e | 6c 36 0a 20 20 20 20 41 |   Bpl .|l6.    A|
|00000c90| 64 64 69 2e 6c 20 23 31 | 30 30 2c 64 30 0a 20 20 |ddi.l #1|00,d0.  |
|00000ca0| 20 20 61 64 64 69 2e 6c | 20 23 24 33 30 2c 64 31 |  addi.l| #$30,d1|
|00000cb0| 0a 20 20 20 20 63 6d 70 | 69 2e 62 20 23 22 20 22 |.    cmp|i.b #" "|
|00000cc0| 2c 34 28 61 30 29 0a 20 | 20 20 20 62 6e 65 20 2e |,4(a0). |   bne .|
|00000cd0| 6c 36 32 0a 20 20 20 20 | 63 6d 70 69 2e 62 20 23 |l62.    |cmpi.b #|
|00000ce0| 22 30 22 2c 64 31 0a 20 | 20 20 20 42 65 71 20 2e |"0",d1. |   Beq .|
|00000cf0| 6c 36 31 0a 2e 6c 36 32 | 3a 0a 20 20 20 20 6d 6f |l61..l62|:.    mo|
|00000d00| 76 65 2e 62 20 64 31 2c | 35 28 61 30 29 0a 2e 6c |ve.b d1,|5(a0)..l|
|00000d10| 36 31 3a 4d 6f 76 65 51 | 2e 6c 20 23 2d 31 2c 64 |61:MoveQ|.l #-1,d|
|00000d20| 31 0a 2e 6c 37 3a 41 64 | 64 51 2e 6c 20 23 31 2c |1..l7:Ad|dQ.l #1,|
|00000d30| 64 31 0a 20 20 20 20 53 | 75 62 69 2e 6c 20 23 31 |d1.    S|ubi.l #1|
|00000d40| 30 2c 64 30 0a 20 20 20 | 20 42 70 6c 20 2e 6c 37 |0,d0.   | Bpl .l7|
|00000d50| 0a 20 20 20 20 41 64 64 | 69 2e 6c 20 23 31 30 2c |.    Add|i.l #10,|
|00000d60| 64 30 0a 20 20 20 20 61 | 64 64 69 2e 6c 20 23 24 |d0.    a|ddi.l #$|
|00000d70| 33 30 2c 64 31 0a 20 20 | 20 20 63 6d 70 69 2e 62 |30,d1.  |  cmpi.b|
|00000d80| 20 23 22 20 22 2c 35 28 | 61 30 29 0a 20 20 20 20 | #" ",5(|a0).    |
|00000d90| 62 6e 65 20 2e 6c 37 32 | 0a 20 20 20 20 63 6d 70 |bne .l72|.    cmp|
|00000da0| 69 2e 62 20 23 22 30 22 | 2c 64 31 0a 20 20 20 20 |i.b #"0"|,d1.    |
|00000db0| 42 65 71 20 2e 6c 37 31 | 0a 2e 6c 37 32 3a 0a 20 |Beq .l71|..l72:. |
|00000dc0| 20 20 20 6d 6f 76 65 2e | 62 20 64 31 2c 36 28 61 |   move.|b d1,6(a|
|00000dd0| 30 29 0a 2e 6c 37 31 3a | 0a 20 20 20 20 61 64 64 |0)..l71:|.    add|
|00000de0| 69 2e 6c 20 23 24 33 30 | 2c 64 30 0a 20 20 20 20 |i.l #$30|,d0.    |
|00000df0| 6d 6f 76 65 2e 62 20 64 | 30 2c 37 28 61 30 29 0a |move.b d|0,7(a0).|
|00000e00| 20 20 20 20 4d 6f 76 65 | 6d 2e 6c 20 28 73 70 29 |    Move|m.l (sp)|
|00000e10| 2b 2c 61 30 2d 61 35 0a | 20 20 20 20 54 73 74 2e |+,a0-a5.|    Tst.|
|00000e20| 6c 20 44 36 0a 20 20 20 | 20 42 65 71 20 2e 65 6e |l D6.   | Beq .en|
|00000e30| 64 65 20 20 20 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |de   .  |  Move.l|
|00000e40| 20 44 4f 53 42 61 73 65 | 2c 61 36 0a 20 20 20 20 | DOSBase|,a6.    |
|00000e50| 4d 6f 76 65 2e 6c 20 44 | 36 2c 64 31 0a 20 20 20 |Move.l D|6,d1.   |
|00000e60| 20 4d 6f 76 65 2e 6c 20 | 23 5a 75 73 61 74 7a 2c | Move.l |#Zusatz,|
|00000e70| 64 32 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 38 |d2.    M|ove.l #8|
|00000e80| 2c 64 33 0a 20 20 20 20 | 4a 73 72 20 57 72 69 74 |,d3.    |Jsr Writ|
|00000e90| 65 28 61 36 29 0a 2e 65 | 6e 64 65 3a 52 54 53 0a |e(a6)..e|nde:RTS.|
|00000ea0| 0a 43 6f 6d 70 61 72 65 | 53 74 72 69 6e 67 3a 0a |.Compare|String:.|
|00000eb0| 20 20 20 20 6d 6f 76 65 | 6d 2e 6c 20 64 30 2d 64 |    move|m.l d0-d|
|00000ec0| 37 2f 61 30 2d 61 36 2c | 2d 28 73 70 29 0a 20 20 |7/a0-a6,|-(sp).  |
|00000ed0| 20 20 6d 6f 76 65 6d 2e | 6c 20 64 30 2d 64 31 2f |  movem.|l d0-d1/|
|00000ee0| 61 30 2d 61 31 2c 2d 28 | 73 70 29 0a 20 20 20 20 |a0-a1,-(|sp).    |
|00000ef0| 4a 73 72 20 43 6f 75 6e | 74 53 74 72 69 6e 67 0a |Jsr Coun|tString.|
|00000f00| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 44 30 2c 53 74 |    Move|.l D0,St|
|00000f10| 72 69 6e 67 6c 61 65 6e | 67 65 0a 20 20 20 20 6d |ringlaen|ge.    m|
|00000f20| 6f 76 65 6d 2e 6c 20 28 | 73 70 29 2b 2c 64 30 2d |ovem.l (|sp)+,d0-|
|00000f30| 64 31 2f 61 30 2d 61 31 | 0a 20 20 20 20 6d 6f 76 |d1/a0-a1|.    mov|
|00000f40| 65 6d 2e 6c 20 64 30 2d | 64 31 2f 61 30 2d 61 31 |em.l d0-|d1/a0-a1|
|00000f50| 2c 2d 28 73 70 29 0a 4d | 6f 76 65 2e 6c 20 61 31 |,-(sp).M|ove.l a1|
|00000f60| 2c 41 30 0a 4a 73 72 20 | 43 6f 75 6e 74 53 74 72 |,A0.Jsr |CountStr|
|00000f70| 69 6e 67 0a 20 20 20 20 | 43 6d 70 2e 6c 20 53 74 |ing.    |Cmp.l St|
|00000f80| 72 69 6e 67 6c 61 65 6e | 67 65 2c 44 30 0a 20 20 |ringlaen|ge,D0.  |
|00000f90| 20 20 42 65 71 20 2e 6c | 30 0a 20 20 20 20 6d 6f |  Beq .l|0.    mo|
|00000fa0| 76 65 6d 2e 6c 20 28 73 | 70 29 2b 2c 64 30 2d 64 |vem.l (s|p)+,d0-d|
|00000fb0| 31 2f 61 30 2d 61 31 0a | 20 20 20 20 62 72 61 20 |1/a0-a1.|    bra |
|00000fc0| 2e 66 65 68 6c 65 72 0a | 2e 6c 30 3a 6d 6f 76 65 |.fehler.|.l0:move|
|00000fd0| 6d 2e 6c 20 28 73 70 29 | 2b 2c 64 30 2d 64 31 2f |m.l (sp)|+,d0-d1/|
|00000fe0| 61 30 2d 61 31 0a 20 20 | 20 20 63 6d 70 69 2e 6c |a0-a1.  |  cmpi.l|
|00000ff0| 20 23 4d 6f 64 65 5f 4e | 6f 63 61 73 65 2c 64 31 | #Mode_N|ocase,d1|
|00001000| 0a 20 20 20 20 62 65 71 | 20 2e 6e 6f 63 61 73 65 |.    beq| .nocase|
|00001010| 0a 20 20 20 20 6d 6f 76 | 65 2e 6c 20 53 74 72 69 |.    mov|e.l Stri|
|00001020| 6e 67 6c 61 65 6e 67 65 | 2c 64 31 0a 20 20 20 20 |nglaenge|,d1.    |
|00001030| 73 75 62 71 2e 6c 20 23 | 31 2c 64 31 0a 20 20 20 |subq.l #|1,d1.   |
|00001040| 20 61 64 64 69 2e 6c 20 | 64 30 2c 61 31 0a 2e 6c | addi.l |d0,a1..l|
|00001050| 31 3a 6d 6f 76 65 2e 62 | 20 28 61 30 29 2b 2c 64 |1:move.b| (a0)+,d|
|00001060| 30 0a 20 20 20 20 63 6d | 70 2e 62 20 28 61 31 29 |0.    cm|p.b (a1)|
|00001070| 2b 2c 64 30 0a 20 20 20 | 20 62 6e 65 20 2e 66 65 |+,d0.   | bne .fe|
|00001080| 68 6c 65 72 0a 20 20 20 | 20 64 62 72 61 20 64 31 |hler.   | dbra d1|
|00001090| 2c 2e 6c 31 0a 20 20 20 | 20 6d 6f 76 65 6d 2e 6c |,.l1.   | movem.l|
|000010a0| 20 28 61 37 29 2b 2c 64 | 30 2d 64 37 2f 61 30 2d | (a7)+,d|0-d7/a0-|
|000010b0| 61 36 0a 20 20 20 20 6d | 6f 76 65 71 2e 6c 20 23 |a6.    m|oveq.l #|
|000010c0| 2d 31 2c 64 30 0a 20 20 | 20 20 52 54 53 0a 2e 4e |-1,d0.  |  RTS..N|
|000010d0| 6f 43 61 73 65 3a 0a 20 | 20 20 20 6d 6f 76 65 2e |oCase:. |   move.|
|000010e0| 6c 20 53 74 72 69 6e 67 | 6c 61 65 6e 67 65 2c 64 |l String|laenge,d|
|000010f0| 31 0a 20 20 20 20 73 75 | 62 71 2e 6c 20 23 31 2c |1.    su|bq.l #1,|
|00001100| 64 31 0a 20 20 20 20 61 | 64 64 69 2e 6c 20 64 30 |d1.    a|ddi.l d0|
|00001110| 2c 61 31 0a 2e 6c 32 3a | 6d 6f 76 65 2e 62 20 28 |,a1..l2:|move.b (|
|00001120| 61 30 29 2b 2c 64 30 0a | 20 20 20 20 6d 6f 76 65 |a0)+,d0.|    move|
|00001130| 2e 62 20 28 61 31 29 2b | 2c 64 32 0a 20 20 20 20 |.b (a1)+|,d2.    |
|00001140| 62 63 6c 72 20 23 35 2c | 64 30 0a 20 20 20 20 62 |bclr #5,|d0.    b|
|00001150| 63 6c 72 20 23 35 2c 64 | 32 0a 20 20 20 20 63 6d |clr #5,d|2.    cm|
|00001160| 70 2e 62 20 64 32 2c 64 | 30 0a 20 20 20 20 62 6e |p.b d2,d|0.    bn|
|00001170| 65 20 2e 66 65 68 6c 65 | 72 0a 20 20 20 20 64 62 |e .fehle|r.    db|
|00001180| 72 61 20 64 31 2c 2e 6c | 32 0a 20 20 20 20 6d 6f |ra d1,.l|2.    mo|
|00001190| 76 65 6d 2e 6c 20 28 61 | 37 29 2b 2c 64 30 2d 64 |vem.l (a|7)+,d0-d|
|000011a0| 37 2f 61 30 2d 61 36 0a | 20 20 20 20 6d 6f 76 65 |7/a0-a6.|    move|
|000011b0| 71 2e 6c 20 23 2d 31 2c | 64 30 0a 20 20 20 20 52 |q.l #-1,|d0.    R|
|000011c0| 54 53 0a 2e 46 65 68 6c | 65 72 3a 0a 20 20 20 20 |TS..Fehl|er:.    |
|000011d0| 6d 6f 76 65 6d 2e 6c 20 | 28 61 37 29 2b 2c 64 30 |movem.l |(a7)+,d0|
|000011e0| 2d 64 37 2f 61 30 2d 61 | 36 0a 20 20 20 20 6d 6f |-d7/a0-a|6.    mo|
|000011f0| 76 65 71 2e 6c 20 23 30 | 2c 64 30 0a 20 20 20 20 |veq.l #0|,d0.    |
|00001200| 52 54 53 0a 0a 43 6f 75 | 6e 74 53 74 72 69 6e 67 |RTS..Cou|ntString|
|00001210| 3a 0a 20 20 20 20 20 20 | 20 20 6d 6f 76 65 2e 6c |:.      |  move.l|
|00001220| 20 61 31 2c 2d 28 53 70 | 29 0a 20 20 20 20 20 20 | a1,-(Sp|).      |
|00001230| 20 20 6d 6f 76 65 2e 6c | 20 61 30 2c 61 31 0a 2e |  move.l| a0,a1..|
|00001240| 6c 31 3a 20 20 20 20 63 | 6d 70 69 2e 62 20 23 24 |l1:    c|mpi.b #$|
|00001250| 30 30 2c 28 61 31 29 2b | 0a 20 20 20 20 20 20 20 |00,(a1)+|.       |
|00001260| 20 62 6e 65 20 2e 6c 31 | 0a 20 20 20 20 20 20 20 | bne .l1|.       |
|00001270| 20 6c 65 61 20 2d 31 28 | 61 31 29 2c 61 31 0a 20 | lea -1(|a1),a1. |
|00001280| 20 20 20 20 20 20 20 73 | 75 62 2e 6c 20 61 30 2c |       s|ub.l a0,|
|00001290| 61 31 0a 20 20 20 20 20 | 20 20 20 6d 6f 76 65 2e |a1.     |   move.|
|000012a0| 6c 20 61 31 2c 64 30 0a | 20 20 20 20 20 20 20 20 |l a1,d0.|        |
|000012b0| 6d 6f 76 65 2e 6c 20 28 | 73 70 29 2b 2c 61 31 0a |move.l (|sp)+,a1.|
|000012c0| 20 20 20 20 20 20 20 20 | 52 54 53 0a 0a 43 6f 75 |        |RTS..Cou|
|000012d0| 6e 74 45 4f 4c 3a 0a 20 | 20 20 20 20 20 20 20 6d |ntEOL:. |       m|
|000012e0| 6f 76 65 2e 6c 20 61 31 | 2c 2d 28 53 70 29 0a 20 |ove.l a1|,-(Sp). |
|000012f0| 20 20 20 20 20 20 20 6d | 6f 76 65 2e 6c 20 61 30 |       m|ove.l a0|
|00001300| 2c 61 31 0a 2e 6c 31 3a | 20 20 20 20 63 6d 70 69 |,a1..l1:|    cmpi|
|00001310| 2e 62 20 23 24 30 61 2c | 28 61 31 29 0a 20 20 20 |.b #$0a,|(a1).   |
|00001320| 20 20 20 20 20 62 65 71 | 20 2e 6c 32 0a 20 20 20 |     beq| .l2.   |
|00001330| 20 20 20 20 20 63 6d 70 | 69 2e 62 20 23 24 30 30 |     cmp|i.b #$00|
|00001340| 2c 28 61 31 29 2b 0a 20 | 20 20 20 20 20 20 20 62 |,(a1)+. |       b|
|00001350| 6e 65 20 2e 6c 31 0a 20 | 20 20 20 20 20 20 20 6c |ne .l1. |       l|
|00001360| 65 61 20 2d 31 28 61 31 | 29 2c 61 31 0a 2e 6c 32 |ea -1(a1|),a1..l2|
|00001370| 3a 20 20 20 20 73 75 62 | 2e 6c 20 61 30 2c 61 31 |:    sub|.l a0,a1|
|00001380| 0a 20 20 20 20 20 20 20 | 20 6d 6f 76 65 2e 6c 20 |.       | move.l |
|00001390| 61 31 2c 64 30 0a 20 20 | 20 20 20 20 20 20 61 64 |a1,d0.  |      ad|
|000013a0| 64 71 2e 6c 20 23 31 2c | 64 30 0a 20 20 20 20 20 |dq.l #1,|d0.     |
|000013b0| 20 20 20 63 6d 70 69 2e | 62 20 23 24 30 30 2c 28 |   cmpi.|b #$00,(|
|000013c0| 61 30 29 0a 20 20 20 20 | 20 20 20 20 62 65 71 20 |a0).    |    beq |
|000013d0| 2e 6e 75 6c 6c 0a 20 20 | 20 20 20 20 20 20 6d 6f |.null.  |      mo|
|000013e0| 76 65 2e 6c 20 28 73 70 | 29 2b 2c 61 31 0a 20 20 |ve.l (sp|)+,a1.  |
|000013f0| 20 20 20 20 20 20 52 54 | 53 0a 2e 6e 75 6c 6c 3a |      RT|S..null:|
|00001400| 20 20 63 6c 72 2e 6c 20 | 64 30 0a 20 20 20 20 20 |  clr.l |d0.     |
|00001410| 20 20 20 6d 6f 76 65 2e | 6c 20 28 73 70 29 2b 2c |   move.|l (sp)+,|
|00001420| 61 31 0a 20 20 20 20 20 | 20 20 20 52 54 53 0a 0a |a1.     |   RTS..|
|00001430| 43 44 3a 0a 20 20 20 20 | 20 20 20 20 4d 6f 76 65 |CD:.    |    Move|
|00001440| 2e 6c 20 44 4f 53 42 61 | 73 65 2c 61 36 0a 20 20 |.l DOSBa|se,a6.  |
|00001450| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 61 30 2c |      Mo|ve.l a0,|
|00001460| 64 31 0a 20 20 20 20 20 | 20 20 20 4d 6f 76 65 2e |d1.     |   Move.|
|00001470| 6c 20 23 41 63 63 65 73 | 73 5f 72 65 61 64 2c 64 |l #Acces|s_read,d|
|00001480| 32 0a 20 20 20 20 20 20 | 20 20 4a 73 72 20 4c 6f |2.      |  Jsr Lo|
|00001490| 63 6b 28 61 36 29 0a 20 | 20 20 20 20 20 20 20 54 |ck(a6). |       T|
|000014a0| 73 74 2e 6c 20 64 30 0a | 20 20 20 20 20 20 20 20 |st.l d0.|        |
|000014b0| 42 65 71 20 2e 65 6e 64 | 65 0a 20 20 20 20 20 20 |Beq .end|e.      |
|000014c0| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 64 30 2c |      Mo|ve.l d0,|
|000014d0| 64 31 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 4a |d1.     |       J|
|000014e0| 73 72 20 43 75 72 72 65 | 6e 74 64 69 72 28 61 36 |sr Curre|ntdir(a6|
|000014f0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 6f |).      |      Mo|
|00001500| 76 65 2e 6c 20 64 30 2c | 64 31 0a 20 20 20 20 20 |ve.l d0,|d1.     |
|00001510| 20 20 20 20 20 20 20 4a | 73 72 20 55 6e 6c 6f 63 |       J|sr Unloc|
|00001520| 6b 28 61 36 29 0a 20 20 | 20 20 20 20 20 20 20 20 |k(a6).  |        |
|00001530| 20 20 6d 6f 76 65 71 2e | 6c 20 23 2d 31 2c 64 30 |  moveq.|l #-1,d0|
|00001540| 0a 2e 65 6e 64 65 3a 20 | 20 52 54 53 0a 0a 47 65 |..ende: | RTS..Ge|
|00001550| 74 46 69 6c 65 6e 61 6d | 65 3a 0a 20 20 20 20 20 |tFilenam|e:.     |
|00001560| 20 20 20 63 6d 70 69 2e | 6c 20 23 30 2c 6c 61 65 |   cmpi.|l #0,lae|
|00001570| 6e 67 65 0a 20 20 20 20 | 20 20 20 20 62 65 71 20 |nge.    |    beq |
|00001580| 2e 6c 31 33 0a 20 20 20 | 20 20 20 20 20 63 6d 70 |.l13.   |     cmp|
|00001590| 69 2e 6c 20 23 31 2c 6c | 61 65 6e 67 65 0a 20 20 |i.l #1,l|aenge.  |
|000015a0| 20 20 20 20 20 20 62 65 | 71 20 2e 6c 31 33 0a 20 |      be|q .l13. |
|000015b0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 41 64 |       M|ove.l Ad|
|000015c0| 72 65 73 73 65 2c 61 30 | 0a 2e 6c 31 3a 20 20 20 |resse,a0|..l1:   |
|000015d0| 20 63 6d 70 69 2e 62 20 | 23 60 22 60 2c 28 61 30 | cmpi.b |#`"`,(a0|
|000015e0| 29 0a 20 20 20 20 20 20 | 20 20 62 65 71 20 2e 6c |).      |  beq .l|
|000015f0| 31 30 0a 20 20 20 20 20 | 20 20 20 63 6d 70 69 2e |10.     |   cmpi.|
|00001600| 62 20 23 60 20 60 2c 28 | 61 30 29 2b 0a 20 20 20 |b #` `,(|a0)+.   |
|00001610| 20 20 20 20 20 62 65 71 | 20 2e 6c 31 0a 20 20 20 |     beq| .l1.   |
|00001620| 20 20 20 20 20 6c 65 61 | 20 2d 31 28 61 30 29 2c |     lea| -1(a0),|
|00001630| 61 31 0a 2e 6c 32 3a 20 | 20 20 20 63 6d 70 69 2e |a1..l2: |   cmpi.|
|00001640| 62 20 23 60 22 60 2c 28 | 61 30 29 0a 20 20 20 20 |b #`"`,(|a0).    |
|00001650| 20 20 20 20 62 65 71 20 | 2e 6c 31 31 0a 20 20 20 |    beq |.l11.   |
|00001660| 20 20 20 20 20 63 6d 70 | 69 2e 62 20 23 24 30 61 |     cmp|i.b #$0a|
|00001670| 2c 28 61 30 29 0a 20 20 | 20 20 20 20 20 20 62 65 |,(a0).  |      be|
|00001680| 71 20 2e 6c 31 32 0a 20 | 20 20 20 20 20 20 20 63 |q .l12. |       c|
|00001690| 6d 70 69 2e 62 20 23 24 | 30 30 2c 28 61 30 29 0a |mpi.b #$|00,(a0).|
|000016a0| 20 20 20 20 20 20 20 20 | 62 65 71 20 2e 6c 31 32 |        |beq .l12|
|000016b0| 0a 20 20 20 20 20 20 20 | 20 63 6d 70 69 2e 62 20 |.       | cmpi.b |
|000016c0| 23 60 20 60 2c 28 61 30 | 29 2b 0a 20 20 20 20 20 |#` `,(a0|)+.     |
|000016d0| 20 20 20 62 6e 65 20 2e | 6c 32 0a 20 20 20 20 20 |   bne .|l2.     |
|000016e0| 20 20 20 4c 65 61 20 2d | 31 28 61 30 29 2c 61 32 |   Lea -|1(a0),a2|
|000016f0| 0a 2e 6c 33 3a 20 20 20 | 20 73 75 62 61 2e 6c 20 |..l3:   | suba.l |
|00001700| 61 31 2c 61 32 0a 20 20 | 20 20 20 20 20 20 4d 6f |a1,a2.  |      Mo|
|00001710| 76 65 2e 6c 20 45 78 65 | 63 42 61 73 65 2c 61 36 |ve.l Exe|cBase,a6|
|00001720| 0a 20 20 20 20 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |.       | Move.l |
|00001730| 61 31 2c 61 30 0a 20 20 | 20 20 20 20 20 20 4d 6f |a1,a0.  |      Mo|
|00001740| 76 65 2e 6c 20 23 46 69 | 6c 65 6e 61 6d 65 2c 61 |ve.l #Fi|lename,a|
|00001750| 31 0a 20 20 20 20 20 20 | 20 20 4d 6f 76 65 2e 6c |1.      |  Move.l|
|00001760| 20 61 32 2c 64 30 0a 20 | 20 20 20 20 20 20 20 4a | a2,d0. |       J|
|00001770| 73 72 20 43 6f 70 79 6d | 65 6d 28 61 36 29 0a 20 |sr Copym|em(a6). |
|00001780| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 61 32 |       M|ove.l a2|
|00001790| 2c 64 30 0a 20 20 20 20 | 20 20 20 20 72 74 73 0a |,d0.    |    rts.|
|000017a0| 2e 6c 31 30 3a 20 20 20 | 6c 65 61 20 31 28 61 30 |.l10:   |lea 1(a0|
|000017b0| 29 2c 61 31 0a 20 20 20 | 20 20 20 20 20 62 72 61 |),a1.   |     bra|
|000017c0| 20 2e 6c 32 0a 2e 6c 31 | 31 3a 20 20 20 6c 65 61 | .l2..l1|1:   lea|
|000017d0| 20 31 28 61 30 29 2c 61 | 31 0a 20 20 20 20 20 20 | 1(a0),a|1.      |
|000017e0| 20 20 62 72 61 20 2e 6c | 33 0a 2e 6c 31 32 3a 20 |  bra .l|3..l12: |
|000017f0| 20 20 6d 6f 76 65 2e 6c | 20 61 30 2c 61 32 0a 20 |  move.l| a0,a2. |
|00001800| 20 20 20 20 20 20 20 62 | 72 61 20 2e 6c 33 0a 2e |       b|ra .l3..|
|00001810| 6c 31 33 3a 20 20 20 6d | 6f 76 65 71 2e 6c 20 23 |l13:   m|oveq.l #|
|00001820| 30 2c 64 30 0a 20 20 20 | 20 20 20 20 20 52 54 53 |0,d0.   |     RTS|
|00001830| 0a 0a 20 20 20 20 49 6e | 63 6c 75 64 65 20 73 79 |..    In|clude sy|
|00001840| 73 3a 63 6f 64 65 72 2f | 69 6e 63 6c 75 64 65 2f |s:coder/|include/|
|00001850| 44 61 74 61 74 79 70 65 | 73 2f 64 61 74 61 74 79 |Datatype|s/dataty|
|00001860| 70 65 73 2e 69 0a 20 20 | 20 20 49 6e 63 6c 75 64 |pes.i.  |  Includ|
|00001870| 65 20 73 79 73 3a 63 6f | 64 65 72 2f 69 6e 63 6c |e sys:co|der/incl|
|00001880| 75 64 65 2f 69 6e 74 75 | 69 74 69 6f 6e 2f 69 63 |ude/intu|ition/ic|
|00001890| 63 6c 61 73 73 2e 69 0a | 0a 20 20 20 20 0a 0a 0a |class.i.|.    ...|
|000018a0| 0a 0a 20 20 20 20 45 69 | 6e 74 72 61 67 6c 61 65 |..    Ei|ntraglae|
|000018b0| 6e 67 65 3d 20 33 32 0a | 0a 53 45 43 54 49 4f 4e |nge= 32.|.SECTION|
|000018c0| 20 41 2c 44 41 54 41 0a | 0a 65 76 65 6e 0a 54 6f | A,DATA.|.even.To|
|000018d0| 70 61 7a 41 74 74 72 3a | 0a 20 20 20 20 64 63 2e |pazAttr:|.    dc.|
|000018e0| 6c 20 54 6f 70 61 7a 4e | 61 6d 65 0a 20 20 20 20 |l TopazN|ame.    |
|000018f0| 64 63 2e 77 20 38 0a 20 | 20 20 20 64 63 2e 62 20 |dc.w 8. |   dc.b |
|00001900| 30 2c 30 0a 54 6f 70 61 | 7a 6e 61 6d 65 3a 0a 20 |0,0.Topa|zname:. |
|00001910| 20 20 20 64 63 2e 62 20 | 22 74 6f 70 61 7a 2e 66 |   dc.b |"topaz.f|
|00001920| 6f 6e 74 22 2c 30 0a 20 | 20 20 20 62 6c 6b 2e 62 |ont",0. |   blk.b|
|00001930| 20 32 39 2c 30 0a 0a 53 | 45 43 54 49 4f 4e 20 42 | 29,0..S|ECTION B|
|00001940| 2c 43 4f 44 45 0a 0a 41 | 6d 69 6e 65 74 43 68 65 |,CODE..A|minetChe|
|00001950| 63 6b 3a 20 20 20 20 0a | 20 20 20 20 4d 6f 76 65 |ck:    .|    Move|
|00001960| 2e 6c 20 44 4f 53 42 61 | 73 65 2c 61 36 0a 20 20 |.l DOSBa|se,a6.  |
|00001970| 20 20 4d 6f 76 65 2e 6c | 20 44 37 2c 64 31 0a 20 |  Move.l| D7,d1. |
|00001980| 20 20 20 4d 6f 76 65 2e | 6c 20 23 42 75 66 66 65 |   Move.|l #Buffe|
|00001990| 72 2c 64 32 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |r,d2.   | Move.l |
|000019a0| 23 31 2c 64 33 0a 20 20 | 20 20 4a 73 72 20 52 65 |#1,d3.  |  Jsr Re|
|000019b0| 61 64 28 61 36 29 0a 20 | 20 20 20 4d 6f 76 65 2e |ad(a6). |   Move.|
|000019c0| 6c 20 44 37 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |l D7,d1.|    Move|
|000019d0| 2e 6c 20 23 2d 31 2c 64 | 32 0a 20 20 20 20 4d 6f |.l #-1,d|2.    Mo|
|000019e0| 76 65 2e 6c 20 23 4f 66 | 66 73 65 74 5f 43 75 72 |ve.l #Of|fset_Cur|
|000019f0| 72 65 6e 74 2c 64 33 0a | 20 20 20 20 4a 73 72 20 |rent,d3.|    Jsr |
|00001a00| 53 65 65 6b 28 61 36 29 | 0a 20 20 20 20 63 6d 70 |Seek(a6)|.    cmp|
|00001a10| 69 2e 62 20 23 22 7c 22 | 2c 42 75 66 66 65 72 0a |i.b #"|"|,Buffer.|
|00001a20| 20 20 20 20 62 65 71 20 | 2e 41 6d 69 6e 65 74 0a |    beq |.Aminet.|
|00001a30| 20 20 20 20 6d 6f 76 65 | 2e 6c 20 23 2d 31 2c 64 |    move|.l #-1,d|
|00001a40| 30 0a 20 20 20 20 52 54 | 53 0a 2e 61 6d 69 6e 65 |0.    RT|S..amine|
|00001a50| 74 3a 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 48 61 |t:.    M|ove.l Ha|
|00001a60| 6e 64 6c 65 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |ndle,d1.|    Move|
|00001a70| 2e 6c 20 23 42 75 66 66 | 65 72 2c 64 32 0a 20 20 |.l #Buff|er,d2.  |
|00001a80| 20 20 4d 6f 76 65 2e 6c | 20 23 31 30 30 30 2c 64 |  Move.l| #1000,d|
|00001a90| 33 0a 20 20 20 20 4a 73 | 72 20 46 67 65 74 73 28 |3.    Js|r Fgets(|
|00001aa0| 61 36 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 44 |a6).    |Move.l D|
|00001ab0| 30 2c 52 65 73 75 6c 74 | 0a 20 20 20 20 4d 6f 76 |0,Result|.    Mov|
|00001ac0| 65 2e 6c 20 52 65 73 75 | 6c 74 2c 64 30 0a 20 20 |e.l Resu|lt,d0.  |
|00001ad0| 20 20 43 6d 70 2e 6c 20 | 23 42 75 66 66 65 72 2c |  Cmp.l |#Buffer,|
|00001ae0| 44 30 0a 20 20 20 20 42 | 6e 65 20 2e 65 6e 64 65 |D0.    B|ne .ende|
|00001af0| 0a 20 20 20 20 63 6d 70 | 69 2e 62 20 23 22 7c 22 |.    cmp|i.b #"|"|
|00001b00| 2c 62 75 66 66 65 72 0a | 20 20 20 20 62 65 71 20 |,buffer.|    beq |
|00001b10| 2e 61 6d 69 6e 65 74 0a | 2e 53 63 68 6c 65 69 66 |.aminet.|.Schleif|
|00001b20| 65 3a 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 48 61 |e:.    M|ove.l Ha|
|00001b30| 6e 64 6c 65 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |ndle,d1.|    Move|
|00001b40| 2e 6c 20 23 42 75 66 66 | 65 72 2c 64 32 0a 20 20 |.l #Buff|er,d2.  |
|00001b50| 20 20 4d 6f 76 65 2e 6c | 20 23 31 30 30 30 2c 64 |  Move.l| #1000,d|
|00001b60| 33 0a 20 20 20 20 4a 73 | 72 20 46 67 65 74 73 28 |3.    Js|r Fgets(|
|00001b70| 61 36 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 44 |a6).    |Move.l D|
|00001b80| 30 2c 52 65 73 75 6c 74 | 0a 20 20 20 20 4d 6f 76 |0,Result|.    Mov|
|00001b90| 65 2e 6c 20 52 65 73 75 | 6c 74 2c 64 30 0a 20 20 |e.l Resu|lt,d0.  |
|00001ba0| 20 20 43 6d 70 2e 6c 20 | 23 42 75 66 66 65 72 2c |  Cmp.l |#Buffer,|
|00001bb0| 44 30 0a 20 20 20 20 42 | 6e 65 20 2e 65 6e 64 65 |D0.    B|ne .ende|
|00001bc0| 0a 20 20 20 20 6d 6f 76 | 65 2e 6c 20 62 75 66 66 |.    mov|e.l buff|
|00001bd0| 65 72 2c 61 30 0a 2e 6c | 31 3a 63 6d 70 69 2e 62 |er,a0..l|1:cmpi.b|
|00001be0| 20 23 22 20 22 2c 28 61 | 30 29 2b 0a 20 20 20 20 | #" ",(a|0)+.    |
|00001bf0| 62 6e 65 20 2e 6c 31 0a | 20 20 20 20 6c 65 61 20 |bne .l1.|    lea |
|00001c00| 2d 31 28 61 30 29 2c 61 | 31 0a 2e 6c 32 3a 63 6d |-1(a0),a|1..l2:cm|
|00001c10| 70 69 2e 62 20 23 22 20 | 22 2c 28 61 30 29 2b 0a |pi.b #" |",(a0)+.|
|00001c20| 20 20 20 20 62 65 71 20 | 2e 6c 32 0a 20 20 20 20 |    beq |.l2.    |
|00001c30| 6c 65 61 20 2d 31 28 61 | 30 29 2c 61 32 0a 2e 6c |lea -1(a|0),a2..l|
|00001c40| 33 3a 63 6d 70 69 2e 62 | 20 23 22 20 22 2c 28 61 |3:cmpi.b| #" ",(a|
|00001c50| 30 29 2b 0a 20 20 20 20 | 62 6e 65 20 2e 6c 33 0a |0)+.    |bne .l3.|
|00001c60| 20 20 20 20 6c 65 61 20 | 2d 31 28 61 30 29 2c 61 |    lea |-1(a0),a|
|00001c70| 33 0a 20 20 20 20 6d 6f | 76 65 2e 6c 20 61 33 2c |3.    mo|ve.l a3,|
|00001c80| 64 33 0a 20 20 20 20 73 | 75 62 2e 6c 20 61 32 2c |d3.    s|ub.l a2,|
|00001c90| 64 33 0a 20 20 20 20 6d | 6f 76 65 2e 6c 20 61 31 |d3.    m|ove.l a1|
|00001ca0| 2c 64 32 0a 20 20 20 20 | 73 75 62 2e 6c 20 23 42 |,d2.    |sub.l #B|
|00001cb0| 75 66 66 65 72 2c 64 32 | 0a 20 20 20 20 6d 6f 76 |uffer,d2|.    mov|
|00001cc0| 65 6d 2e 6c 20 64 30 2d | 64 33 2f 61 30 2d 61 33 |em.l d0-|d3/a0-a3|
|00001cd0| 2c 2d 28 61 37 29 0a 20 | 20 20 20 4d 6f 76 65 2e |,-(a7). |   Move.|
|00001ce0| 6c 20 45 78 65 63 42 61 | 73 65 2c 61 36 0a 20 20 |l ExecBa|se,a6.  |
|00001cf0| 20 20 4d 6f 76 65 2e 6c | 20 61 32 2c 61 30 0a 20 |  Move.l| a2,a0. |
|00001d00| 20 20 20 4d 6f 76 65 2e | 6c 20 23 42 75 66 66 65 |   Move.|l #Buffe|
|00001d10| 72 31 2c 61 31 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |r1,a1.  |  Move.l|
|00001d20| 20 64 33 2c 64 30 0a 20 | 20 20 20 4a 73 72 20 43 | d3,d0. |   Jsr C|
|00001d30| 6f 70 79 6d 65 6d 28 61 | 36 29 0a 20 20 20 20 6d |opymem(a|6).    m|
|00001d40| 6f 76 65 6d 2e 6c 20 28 | 61 37 29 2b 2c 64 30 2d |ovem.l (|a7)+,d0-|
|00001d50| 64 33 2f 61 30 2d 61 33 | 0a 20 20 20 20 4c 65 61 |d3/a0-a3|.    Lea|
|00001d60| 20 46 49 42 2c 41 31 0a | 20 20 20 20 4c 65 61 20 | FIB,A1.|    Lea |
|00001d70| 41 4d 49 4e 45 54 5f 6e | 61 6d 65 30 30 30 2c 41 |AMINET_n|ame000,A|
|00001d80| 30 0a 2e 4e 61 6d 65 30 | 30 31 3a 4d 6f 76 65 2e |0..Name0|01:Move.|
|00001d90| 62 20 28 61 30 29 2b 2c | 44 30 0a 20 20 20 20 4d |b (a0)+,|D0.    M|
|00001da0| 6f 76 65 2e 62 20 44 30 | 2c 28 61 31 29 2b 0a 20 |ove.b D0|,(a1)+. |
|00001db0| 20 20 20 43 6d 70 69 2e | 62 20 23 30 2c 44 30 0a |   Cmpi.|b #0,D0.|
|00001dc0| 20 20 20 20 42 6e 65 20 | 2e 4e 61 6d 65 30 30 31 |    Bne |.Name001|
|00001dd0| 0a 20 20 20 20 4c 65 61 | 20 2d 31 28 61 31 29 2c |.    Lea| -1(a1),|
|00001de0| 41 31 0a 20 20 20 20 4c | 65 61 20 42 75 66 66 65 |A1.    L|ea Buffe|
|00001df0| 72 31 2c 41 30 0a 4d 6f | 76 65 2e 6c 20 64 33 2c |r1,A0.Mo|ve.l d3,|
|00001e00| 44 30 0a 53 75 62 71 2e | 6c 20 23 31 2c 64 30 0a |D0.Subq.|l #1,d0.|
|00001e10| 2e 4e 61 6d 65 30 30 32 | 3a 4d 6f 76 65 2e 62 20 |.Name002|:Move.b |
|00001e20| 28 41 30 29 2b 2c 28 61 | 31 29 2b 0a 20 20 20 20 |(A0)+,(a|1)+.    |
|00001e30| 43 6d 70 69 2e 62 20 23 | 30 2c 28 41 30 29 0a 20 |Cmpi.b #|0,(A0). |
|00001e40| 20 20 20 42 65 71 20 2e | 4e 61 6d 65 30 30 33 0a |   Beq .|Name003.|
|00001e50| 44 62 72 61 20 44 30 2c | 2e 6e 61 6d 65 30 30 32 |Dbra D0,|.name002|
|00001e60| 0a 62 72 61 20 2e 6e 61 | 6d 65 30 30 34 0a 2e 6e |.bra .na|me004..n|
|00001e70| 61 6d 65 30 30 33 3a 43 | 6d 70 69 2e 77 20 23 30 |ame003:C|mpi.w #0|
|00001e80| 2c 44 30 0a 42 65 71 20 | 2e 6e 61 6d 65 30 30 34 |,D0.Beq |.name004|
|00001e90| 0a 09 4d 6f 76 65 2e 62 | 20 23 24 32 30 2c 28 41 |..Move.b| #$20,(A|
|00001ea0| 31 29 2b 0a 53 75 62 71 | 2e 77 20 23 31 2c 44 30 |1)+.Subq|.w #1,D0|
|00001eb0| 0a 42 72 61 20 2e 6e 61 | 6d 65 30 30 33 0a 2e 6e |.Bra .na|me003..n|
|00001ec0| 61 6d 65 30 30 34 3a 4d | 6f 76 65 2e 62 20 23 30 |ame004:M|ove.b #0|
|00001ed0| 30 2c 28 41 31 29 20 0a | 20 20 20 20 4c 65 61 20 |0,(A1) .|    Lea |
|00001ee0| 2d 31 28 61 31 29 2c 41 | 31 0a 20 20 20 20 4c 65 |-1(a1),A|1.    Le|
|00001ef0| 61 20 5f 6e 61 6d 65 30 | 30 35 2c 41 30 0a 2e 4e |a _name0|05,A0..N|
|00001f00| 61 6d 65 30 30 36 3a 4d | 6f 76 65 2e 62 20 28 61 |ame006:M|ove.b (a|
|00001f10| 30 29 2b 2c 44 30 0a 20 | 20 20 20 4d 6f 76 65 2e |0)+,D0. |   Move.|
|00001f20| 62 20 44 30 2c 28 61 31 | 29 2b 0a 20 20 20 20 43 |b D0,(a1|)+.    C|
|00001f30| 6d 70 69 2e 62 20 23 30 | 2c 44 30 0a 20 20 20 20 |mpi.b #0|,D0.    |
|00001f40| 42 6e 65 20 2e 4e 61 6d | 65 30 30 36 0a 20 20 20 |Bne .Nam|e006.   |
|00001f50| 20 4c 65 61 20 2d 31 28 | 61 31 29 2c 41 31 0a 20 | Lea -1(|a1),A1. |
|00001f60| 20 20 20 4c 65 61 20 42 | 75 66 66 65 72 2c 41 30 |   Lea B|uffer,A0|
|00001f70| 0a 4d 6f 76 65 2e 6c 20 | 64 32 2c 44 30 0a 53 75 |.Move.l |d2,D0.Su|
|00001f80| 62 71 2e 6c 20 23 31 2c | 64 30 0a 2e 4e 61 6d 65 |bq.l #1,|d0..Name|
|00001f90| 30 30 37 3a 4d 6f 76 65 | 2e 62 20 28 41 30 29 2b |007:Move|.b (A0)+|
|00001fa0| 2c 28 61 31 29 2b 0a 20 | 20 20 20 43 6d 70 69 2e |,(a1)+. |   Cmpi.|
|00001fb0| 62 20 23 30 2c 28 41 30 | 29 0a 20 20 20 20 42 65 |b #0,(A0|).    Be|
|00001fc0| 71 20 2e 4e 61 6d 65 30 | 30 38 0a 44 62 72 61 20 |q .Name0|08.Dbra |
|00001fd0| 44 30 2c 2e 6e 61 6d 65 | 30 30 37 0a 62 72 61 20 |D0,.name|007.bra |
|00001fe0| 2e 6e 61 6d 65 30 30 39 | 0a 2e 6e 61 6d 65 30 30 |.name009|..name00|
|00001ff0| 38 3a 43 6d 70 69 2e 77 | 20 23 30 2c 44 30 0a 42 |8:Cmpi.w| #0,D0.B|
|00002000| 65 71 20 2e 6e 61 6d 65 | 30 30 39 0a 09 4d 6f 76 |eq .name|009..Mov|
|00002010| 65 2e 62 20 23 24 32 30 | 2c 28 41 31 29 2b 0a 53 |e.b #$20|,(A1)+.S|
|00002020| 75 62 71 2e 77 20 23 31 | 2c 44 30 0a 42 72 61 20 |ubq.w #1|,D0.Bra |
|00002030| 2e 6e 61 6d 65 30 30 38 | 0a 2e 6e 61 6d 65 30 30 |.name008|..name00|
|00002040| 39 3a 4d 6f 76 65 2e 62 | 20 23 30 30 2c 28 41 31 |9:Move.b| #00,(A1|
|00002050| 29 20 0a 20 20 20 20 4c | 65 61 20 2d 31 28 61 31 |) .    L|ea -1(a1|
|00002060| 29 2c 41 31 0a 20 20 20 | 20 4c 65 61 20 78 6e 6e |),A1.   | Lea xnn|
|00002070| 61 6d 65 30 31 30 2c 41 | 30 0a 2e 4e 61 6d 65 30 |ame010,A|0..Name0|
|00002080| 31 31 3a 4d 6f 76 65 2e | 62 20 28 61 30 29 2b 2c |11:Move.|b (a0)+,|
|00002090| 44 30 0a 20 20 20 20 4d | 6f 76 65 2e 62 20 44 30 |D0.    M|ove.b D0|
|000020a0| 2c 28 61 31 29 2b 0a 20 | 20 20 20 43 6d 70 69 2e |,(a1)+. |   Cmpi.|
|000020b0| 62 20 23 30 2c 44 30 0a | 20 20 20 20 42 6e 65 20 |b #0,D0.|    Bne |
|000020c0| 2e 4e 61 6d 65 30 31 31 | 0a 20 20 20 20 4d 6f 76 |.Name011|.    Mov|
|000020d0| 65 2e 6c 20 23 46 49 42 | 2c 41 30 0a 20 20 20 20 |e.l #FIB|,A0.    |
|000020e0| 4a 73 72 20 43 6f 75 6e | 74 73 74 72 69 6e 67 0a |Jsr Coun|tstring.|
|000020f0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 44 30 2c 4f 4b |    Move|.l D0,OK|
|00002100| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 4f 53 42 |.    Mov|e.l DOSB|
|00002110| 61 73 65 2c 61 36 0a 20 | 20 20 20 4d 6f 76 65 2e |ase,a6. |   Move.|
|00002120| 6c 20 57 48 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |l WH,d1.|    Move|
|00002130| 2e 6c 20 23 46 49 42 2c | 64 32 0a 20 20 20 20 4d |.l #FIB,|d2.    M|
|00002140| 6f 76 65 2e 6c 20 4f 4b | 2c 64 33 0a 20 20 20 20 |ove.l OK|,d3.    |
|00002150| 4a 73 72 20 57 72 69 74 | 65 28 61 36 29 0a 20 20 |Jsr Writ|e(a6).  |
|00002160| 20 20 62 65 71 20 2e 53 | 63 68 6c 65 69 66 65 0a |  beq .S|chleife.|
|00002170| 2e 65 6e 64 65 3a 0a 20 | 20 20 20 6d 6f 76 65 71 |.ende:. |   moveq|
|00002180| 2e 6c 20 23 30 2c 64 30 | 0a 20 20 20 20 52 54 53 |.l #0,d0|.    RTS|
|00002190| 0a 0a 50 72 65 66 73 3a | 20 20 0a 20 20 20 20 4d |..Prefs:|  .    M|
|000021a0| 6f 76 65 2e 6c 20 47 55 | 49 45 6e 76 42 61 73 65 |ove.l GU|IEnvBase|
|000021b0| 2c 61 36 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |,a6.    |Move.l #|
|000021c0| 30 30 30 2c 44 30 0a 20 | 20 20 20 4d 6f 76 65 2e |000,D0. |   Move.|
|000021d0| 6c 20 23 30 31 31 2c 44 | 31 0a 20 20 20 20 4d 6f |l #011,D|1.    Mo|
|000021e0| 76 65 2e 6c 20 23 33 30 | 30 2c 44 32 0a 20 20 20 |ve.l #30|0,D2.   |
|000021f0| 20 4d 6f 76 65 2e 6c 20 | 23 31 31 30 2c 44 33 0a | Move.l |#110,D3.|
|00002200| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 43 44 5f 46 |    Move|.l #CD_F|
|00002210| 69 6e 64 65 72 5f 50 72 | 65 66 73 6e 61 6d 65 30 |inder_Pr|efsname0|
|00002220| 31 31 2c 41 30 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |11,A0.  |  Move.l|
|00002230| 20 23 49 44 43 4d 50 5f | 47 41 44 47 45 54 44 4f | #IDCMP_|GADGETDO|
|00002240| 57 4e 21 49 44 43 4d 50 | 5f 47 41 44 47 45 54 55 |WN!IDCMP|_GADGETU|
|00002250| 50 21 49 44 43 4d 50 5f | 43 4c 4f 53 45 57 49 4e |P!IDCMP_|CLOSEWIN|
|00002260| 44 4f 57 21 49 44 43 4d | 50 5f 49 44 43 4d 50 75 |DOW!IDCM|P_IDCMPu|
|00002270| 70 64 61 74 65 2c 44 34 | 0a 20 20 20 20 4d 6f 76 |pdate,D4|.    Mov|
|00002280| 65 2e 6c 20 23 57 46 4c | 47 5f 44 52 41 47 42 41 |e.l #WFL|G_DRAGBA|
|00002290| 52 21 57 46 4c 47 5f 44 | 45 50 54 48 47 41 44 47 |R!WFLG_D|EPTHGADG|
|000022a0| 45 54 21 57 46 4c 47 5f | 43 4c 4f 53 45 47 41 44 |ET!WFLG_|CLOSEGAD|
|000022b0| 47 45 54 21 57 46 4c 47 | 5f 52 4d 42 54 52 41 50 |GET!WFLG|_RMBTRAP|
|000022c0| 21 30 2c 44 35 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |!0,D5.  |  Move.l|
|000022d0| 20 23 30 2c 41 31 0a 20 | 20 20 20 4d 6f 76 65 2e | #0,A1. |   Move.|
|000022e0| 6c 20 23 30 2c 41 32 0a | 20 20 20 20 4a 73 72 20 |l #0,A2.|    Jsr |
|000022f0| 4f 70 65 6e 47 75 69 57 | 69 6e 64 6f 77 41 28 61 |OpenGuiW|indowA(a|
|00002300| 36 29 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |6).    M|ove.l D0|
|00002310| 2c 49 6e 64 65 78 57 69 | 6e 64 6f 77 0a 20 20 20 |,IndexWi|ndow.   |
|00002320| 20 54 73 74 2e 6c 20 49 | 6e 64 65 78 57 69 6e 64 | Tst.l I|ndexWind|
|00002330| 6f 77 0a 20 20 20 20 42 | 65 71 20 57 61 69 74 4d |ow.    B|eq WaitM|
|00002340| 65 73 73 61 67 65 0a 20 | 20 20 20 4d 6f 76 65 2e |essage. |   Move.|
|00002350| 6c 20 49 6e 64 65 78 57 | 69 6e 64 6f 77 2c 41 30 |l IndexW|indow,A0|
|00002360| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 30 2c 41 |.    Mov|e.l #0,A|
|00002370| 31 0a 20 20 20 20 4a 73 | 72 20 43 72 65 61 74 65 |1.    Js|r Create|
|00002380| 47 75 69 49 6e 66 6f 41 | 28 61 36 29 0a 20 20 20 |GuiInfoA|(a6).   |
|00002390| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 49 6e 64 65 78 | Move.l |D0,Index|
|000023a0| 47 55 49 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 49 |GUI.    |Move.l I|
|000023b0| 6e 64 65 78 47 75 69 2c | 41 30 0a 20 20 20 20 4d |ndexGui,|A0.    M|
|000023c0| 6f 76 65 2e 6c 20 23 31 | 30 2c 44 30 0a 20 20 20 |ove.l #1|0,D0.   |
|000023d0| 20 4d 6f 76 65 2e 6c 20 | 23 31 30 2c 44 31 0a 20 | Move.l |#10,D1. |
|000023e0| 20 20 20 4d 6f 76 65 2e | 6c 20 23 32 30 30 2c 44 |   Move.|l #200,D|
|000023f0| 32 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 30 31 |2.    Mo|ve.l #01|
|00002400| 33 2c 44 33 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |3,D3.   | Move.l |
|00002410| 23 43 68 65 63 6b 42 6f | 78 5f 4b 69 6e 64 2c 44 |#CheckBo|x_Kind,D|
|00002420| 34 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 47 61 |4.    Mo|ve.l #Ga|
|00002430| 64 67 65 74 50 30 30 54 | 61 67 73 2c 41 31 0a 20 |dgetP00T|ags,A1. |
|00002440| 20 20 20 4a 73 72 20 43 | 72 65 61 74 65 47 75 69 |   Jsr C|reateGui|
|00002450| 47 61 64 67 65 74 41 28 | 61 36 29 0a 20 20 20 20 |GadgetA(|a6).    |
|00002460| 4d 6f 76 65 2e 6c 20 47 | 55 49 45 6e 76 42 61 73 |Move.l G|UIEnvBas|
|00002470| 65 2c 61 36 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |e,a6.   | Move.l |
|00002480| 49 6e 64 65 78 47 75 69 | 2c 41 30 0a 20 20 20 20 |IndexGui|,A0.    |
|00002490| 4d 6f 76 65 2e 6c 20 23 | 31 30 2c 44 30 0a 20 20 |Move.l #|10,D0.  |
|000024a0| 20 20 4d 6f 76 65 2e 6c | 20 23 32 35 2c 44 31 0a |  Move.l| #25,D1.|
|000024b0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 32 30 30 2c |    Move|.l #200,|
|000024c0| 44 32 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 30 |D2.    M|ove.l #0|
|000024d0| 31 33 2c 44 33 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |13,D3.  |  Move.l|
|000024e0| 20 23 43 68 65 63 6b 42 | 6f 78 5f 4b 69 6e 64 2c | #CheckB|ox_Kind,|
|000024f0| 44 34 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 47 |D4.    M|ove.l #G|
|00002500| 61 64 67 65 74 50 30 31 | 54 61 67 73 2c 41 31 0a |adgetP01|Tags,A1.|
|00002510| 20 20 20 20 4a 73 72 20 | 43 72 65 61 74 65 47 75 |    Jsr |CreateGu|
|00002520| 69 47 61 64 67 65 74 41 | 28 61 36 29 0a 20 20 20 |iGadgetA|(a6).   |
|00002530| 20 4d 6f 76 65 2e 6c 20 | 49 6e 64 65 78 47 75 69 | Move.l |IndexGui|
|00002540| 2c 41 30 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |,A0.    |Move.l #|
|00002550| 30 2c 41 31 0a 20 20 20 | 20 4a 73 72 20 44 72 61 |0,A1.   | Jsr Dra|
|00002560| 77 47 75 69 41 28 61 36 | 29 0a 2e 57 61 69 74 4d |wGuiA(a6|)..WaitM|
|00002570| 65 73 73 61 67 65 3a 0a | 20 20 20 20 4d 6f 76 65 |essage:.|    Move|
|00002580| 2e 6c 20 47 55 49 45 6e | 76 42 61 73 65 2c 61 36 |.l GUIEn|vBase,a6|
|00002590| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 49 6e 64 65 |.    Mov|e.l Inde|
|000025a0| 78 47 75 69 2c 41 30 0a | 20 20 20 20 4a 73 72 20 |xGui,A0.|    Jsr |
|000025b0| 57 61 69 74 47 75 69 4d | 73 67 28 61 36 29 0a 20 |WaitGuiM|sg(a6). |
|000025c0| 20 20 20 43 6c 72 2e 6c | 20 44 30 0a 20 20 20 20 |   Clr.l| D0.    |
|000025d0| 4d 6f 76 65 2e 6c 20 49 | 6e 64 65 78 47 75 69 2c |Move.l I|ndexGui,|
|000025e0| 41 30 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 33 36 |A0.    M|ove.l 36|
|000025f0| 28 41 30 29 2c 44 30 0a | 20 20 20 20 4d 6f 76 65 |(A0),D0.|    Move|
|00002600| 2e 6c 20 44 30 2c 4d 73 | 67 43 6c 61 73 73 0a 20 |.l D0,Ms|gClass. |
|00002610| 20 20 20 4d 6f 76 65 2e | 6c 20 4d 73 67 43 6c 61 |   Move.|l MsgCla|
|00002620| 73 73 2c 64 30 0a 20 20 | 20 20 43 6d 70 2e 6c 20 |ss,d0.  |  Cmp.l |
|00002630| 23 49 44 43 4d 50 5f 43 | 6c 6f 73 65 57 69 6e 64 |#IDCMP_C|loseWind|
|00002640| 6f 77 2c 44 30 0a 20 20 | 20 20 42 6e 65 20 2e 57 |ow,D0.  |  Bne .W|
|00002650| 61 69 74 4d 65 73 73 61 | 67 65 0a 20 20 20 20 4d |aitMessa|ge.    M|
|00002660| 6f 76 65 2e 6c 20 49 6e | 64 65 78 57 69 6e 64 6f |ove.l In|dexWindo|
|00002670| 77 2c 41 30 0a 20 20 20 | 20 4a 73 72 20 43 6c 6f |w,A0.   | Jsr Clo|
|00002680| 73 65 47 75 69 57 69 6e | 64 6f 77 28 61 36 29 0a |seGuiWin|dow(a6).|
|00002690| 20 20 20 20 52 54 53 0a | 0a 43 6e 6f 70 20 30 2c |    RTS.|.Cnop 0,|
|000026a0| 34 0a 4f 70 65 6e 5f 57 | 69 6e 64 6f 77 3a 0a 09 |4.Open_W|indow:..|
|000026b0| 4d 6f 76 65 2e 6c 20 47 | 55 49 45 6e 76 42 61 73 |Move.l G|UIEnvBas|
|000026c0| 65 2c 61 36 0a 09 4d 6f | 76 65 2e 6c 20 23 30 30 |e,a6..Mo|ve.l #00|
|000026d0| 30 2c 44 30 0a 09 4d 6f | 76 65 2e 6c 20 23 30 31 |0,D0..Mo|ve.l #01|
|000026e0| 31 2c 44 31 0a 09 4d 6f | 76 65 2e 6c 20 23 36 34 |1,D1..Mo|ve.l #64|
|000026f0| 30 2c 44 32 0a 09 4d 6f | 76 65 2e 6c 20 23 35 30 |0,D2..Mo|ve.l #50|
|00002700| 2c 44 33 0a 09 4d 6f 76 | 65 2e 6c 20 23 43 44 5f |,D3..Mov|e.l #CD_|
|00002710| 46 69 6e 64 65 72 6e 61 | 6d 65 30 31 32 2c 41 30 |Finderna|me012,A0|
|00002720| 0a 09 4d 6f 76 65 2e 6c | 20 23 49 44 43 4d 50 5f |..Move.l| #IDCMP_|
|00002730| 47 41 44 47 45 54 44 4f | 57 4e 21 49 44 43 4d 50 |GADGETDO|WN!IDCMP|
|00002740| 5f 47 41 44 47 45 54 55 | 50 21 49 44 43 4d 50 5f |_GADGETU|P!IDCMP_|
|00002750| 43 4c 4f 53 45 57 49 4e | 44 4f 57 21 49 44 43 4d |CLOSEWIN|DOW!IDCM|
|00002760| 50 5f 56 41 4e 49 4c 4c | 41 4b 45 59 21 49 44 43 |P_VANILL|AKEY!IDC|
|00002770| 4d 50 5f 52 41 57 4b 45 | 59 21 30 2c 44 34 0a 09 |MP_RAWKE|Y!0,D4..|
|00002780| 4d 6f 76 65 2e 6c 20 23 | 57 46 4c 47 5f 44 52 41 |Move.l #|WFLG_DRA|
|00002790| 47 42 41 52 21 57 46 4c | 47 5f 44 45 50 54 48 47 |GBAR!WFL|G_DEPTHG|
|000027a0| 41 44 47 45 54 21 57 46 | 4c 47 5f 43 4c 4f 53 45 |ADGET!WF|LG_CLOSE|
|000027b0| 47 41 44 47 45 54 21 57 | 46 4c 47 5f 52 4d 42 54 |GADGET!W|FLG_RMBT|
|000027c0| 52 41 50 21 30 2c 44 35 | 0a 09 4d 6f 76 65 2e 6c |RAP!0,D5|..Move.l|
|000027d0| 20 23 30 2c 41 31 0a 09 | 4d 6f 76 65 2e 6c 20 23 | #0,A1..|Move.l #|
|000027e0| 30 2c 41 32 0a 09 4a 73 | 72 20 4f 70 65 6e 47 75 |0,A2..Js|r OpenGu|
|000027f0| 69 57 69 6e 64 6f 77 41 | 28 61 36 29 0a 09 4d 6f |iWindowA|(a6)..Mo|
|00002800| 76 65 2e 6c 20 44 30 2c | 57 69 6e 64 6f 77 0a 09 |ve.l D0,|Window..|
|00002810| 54 73 74 2e 6c 20 57 69 | 6e 64 6f 77 0a 09 42 65 |Tst.l Wi|ndow..Be|
|00002820| 71 20 4f 70 65 6e 5f 57 | 69 6e 64 6f 77 65 6e 64 |q Open_W|indowend|
|00002830| 65 0a 09 4d 6f 76 65 2e | 6c 20 57 69 6e 64 6f 77 |e..Move.|l Window|
|00002840| 2c 41 30 0a 09 4d 6f 76 | 65 2e 6c 20 23 30 2c 41 |,A0..Mov|e.l #0,A|
|00002850| 31 0a 09 4a 73 72 20 43 | 72 65 61 74 65 47 75 69 |1..Jsr C|reateGui|
|00002860| 49 6e 66 6f 41 28 61 36 | 29 0a 09 4d 6f 76 65 2e |InfoA(a6|)..Move.|
|00002870| 6c 20 44 30 2c 47 55 49 | 0a 4f 70 65 6e 5f 57 69 |l D0,GUI|.Open_Wi|
|00002880| 6e 64 6f 77 65 6e 64 65 | 3a 52 54 53 0a 0a 43 72 |ndowende|:RTS..Cr|
|00002890| 65 61 74 65 5f 47 61 64 | 67 65 74 73 3a 0a 09 4d |eate_Gad|gets:..M|
|000028a0| 6f 76 65 2e 6c 20 47 55 | 49 45 6e 76 42 61 73 65 |ove.l GU|IEnvBase|
|000028b0| 2c 61 36 0a 09 4d 6f 76 | 65 2e 6c 20 47 75 69 2c |,a6..Mov|e.l Gui,|
|000028c0| 41 30 0a 09 4d 6f 76 65 | 2e 6c 20 23 30 37 30 2c |A0..Move|.l #070,|
|000028d0| 44 30 0a 09 4d 6f 76 65 | 2e 6c 20 23 30 30 35 2c |D0..Move|.l #005,|
|000028e0| 44 31 0a 09 4d 6f 76 65 | 2e 6c 20 23 31 30 30 2c |D1..Move|.l #100,|
|000028f0| 44 32 0a 09 4d 6f 76 65 | 2e 6c 20 23 30 31 32 2c |D2..Move|.l #012,|
|00002900| 44 33 0a 09 4d 6f 76 65 | 2e 6c 20 23 53 74 72 69 |D3..Move|.l #Stri|
|00002910| 6e 67 5f 4b 69 6e 64 2c | 44 34 0a 09 4d 6f 76 65 |ng_Kind,|D4..Move|
|00002920| 2e 6c 20 23 47 61 64 67 | 65 74 30 30 30 54 61 67 |.l #Gadg|et000Tag|
|00002930| 73 2c 41 31 0a 09 4a 73 | 72 20 43 72 65 61 74 65 |s,A1..Js|r Create|
|00002940| 47 75 69 47 61 64 67 65 | 74 41 28 61 36 29 0a 0a |GuiGadge|tA(a6)..|
|00002950| 09 4d 6f 76 65 2e 6c 20 | 47 55 49 45 6e 76 42 61 |.Move.l |GUIEnvBa|
|00002960| 73 65 2c 61 36 0a 09 4d | 6f 76 65 2e 6c 20 47 75 |se,a6..M|ove.l Gu|
|00002970| 69 2c 41 30 0a 09 4d 6f | 76 65 2e 6c 20 23 30 30 |i,A0..Mo|ve.l #00|
|00002980| 35 2c 44 30 0a 09 4d 6f | 76 65 2e 6c 20 23 30 32 |5,D0..Mo|ve.l #02|
|00002990| 30 2c 44 31 0a 09 4d 6f | 76 65 2e 6c 20 23 30 38 |0,D1..Mo|ve.l #08|
|000029a0| 30 2c 44 32 0a 09 4d 6f | 76 65 2e 6c 20 23 30 31 |0,D2..Mo|ve.l #01|
|000029b0| 32 2c 44 33 0a 09 4d 6f | 76 65 2e 6c 20 23 42 75 |2,D3..Mo|ve.l #Bu|
|000029c0| 74 74 6f 6e 5f 4b 69 6e | 64 2c 44 34 0a 09 4d 6f |tton_Kin|d,D4..Mo|
|000029d0| 76 65 2e 6c 20 23 47 61 | 64 67 65 74 30 30 31 54 |ve.l #Ga|dget001T|
|000029e0| 61 67 73 2c 41 31 0a 09 | 4a 73 72 20 43 72 65 61 |ags,A1..|Jsr Crea|
|000029f0| 74 65 47 75 69 47 61 64 | 67 65 74 41 28 61 36 29 |teGuiGad|getA(a6)|
|00002a00| 0a 0a 09 4d 6f 76 65 2e | 6c 20 47 75 69 2c 41 30 |...Move.|l Gui,A0|
|00002a10| 0a 09 4d 6f 76 65 2e 6c | 20 23 30 39 30 2c 44 30 |..Move.l| #090,D0|
|00002a20| 0a 09 4d 6f 76 65 2e 6c | 20 23 30 32 30 2c 44 31 |..Move.l| #020,D1|
|00002a30| 0a 09 4d 6f 76 65 2e 6c | 20 23 30 38 30 2c 44 32 |..Move.l| #080,D2|
|00002a40| 0a 09 4d 6f 76 65 2e 6c | 20 23 30 31 32 2c 44 33 |..Move.l| #012,D3|
|00002a50| 0a 09 4d 6f 76 65 2e 6c | 20 23 42 75 74 74 6f 6e |..Move.l| #Button|
|00002a60| 5f 4b 69 6e 64 2c 44 34 | 0a 09 4d 6f 76 65 2e 6c |_Kind,D4|..Move.l|
|00002a70| 20 23 47 61 64 67 65 74 | 30 30 32 54 61 67 73 2c | #Gadget|002Tags,|
|00002a80| 41 31 0a 09 4a 73 72 20 | 43 72 65 61 74 65 47 75 |A1..Jsr |CreateGu|
|00002a90| 69 47 61 64 67 65 74 41 | 28 61 36 29 0a 0a 09 4d |iGadgetA|(a6)...M|
|00002aa0| 6f 76 65 2e 6c 20 47 75 | 69 2c 41 30 0a 09 4d 6f |ove.l Gu|i,A0..Mo|
|00002ab0| 76 65 2e 6c 20 23 31 37 | 35 2c 44 30 0a 09 4d 6f |ve.l #17|5,D0..Mo|
|00002ac0| 76 65 2e 6c 20 23 30 32 | 30 2c 44 31 0a 09 4d 6f |ve.l #02|0,D1..Mo|
|00002ad0| 76 65 2e 6c 20 23 30 38 | 30 2c 44 32 0a 09 4d 6f |ve.l #08|0,D2..Mo|
|00002ae0| 76 65 2e 6c 20 23 30 31 | 32 2c 44 33 0a 09 4d 6f |ve.l #01|2,D3..Mo|
|00002af0| 76 65 2e 6c 20 23 42 75 | 74 74 6f 6e 5f 4b 69 6e |ve.l #Bu|tton_Kin|
|00002b00| 64 2c 44 34 0a 09 4d 6f | 76 65 2e 6c 20 23 47 61 |d,D4..Mo|ve.l #Ga|
|00002b10| 64 67 65 74 30 30 33 54 | 61 67 73 2c 41 31 0a 09 |dget003T|ags,A1..|
|00002b20| 4a 73 72 20 43 72 65 61 | 74 65 47 75 69 47 61 64 |Jsr Crea|teGuiGad|
|00002b30| 67 65 74 41 28 61 36 29 | 0a 0a 09 4d 6f 76 65 2e |getA(a6)|...Move.|
|00002b40| 6c 20 47 75 69 2c 41 30 | 0a 09 4d 6f 76 65 2e 6c |l Gui,A0|..Move.l|
|00002b50| 20 23 32 33 30 2c 44 30 | 0a 09 4d 6f 76 65 2e 6c | #230,D0|..Move.l|
|00002b60| 20 23 30 30 35 2c 44 31 | 0a 09 4d 6f 76 65 2e 6c | #005,D1|..Move.l|
|00002b70| 20 23 34 30 30 2c 44 32 | 0a 09 4d 6f 76 65 2e 6c | #400,D2|..Move.l|
|00002b80| 20 23 30 31 32 2c 44 33 | 0a 09 4d 6f 76 65 2e 6c | #012,D3|..Move.l|
|00002b90| 20 23 53 74 72 69 6e 67 | 5f 4b 69 6e 64 2c 44 34 | #String|_Kind,D4|
|00002ba0| 0a 09 4d 6f 76 65 2e 6c | 20 23 47 61 64 67 65 74 |..Move.l| #Gadget|
|00002bb0| 30 30 34 54 61 67 73 2c | 41 31 0a 09 4a 73 72 20 |004Tags,|A1..Jsr |
|00002bc0| 43 72 65 61 74 65 47 75 | 69 47 61 64 67 65 74 41 |CreateGu|iGadgetA|
|00002bd0| 28 61 36 29 0a 0a 09 4d | 6f 76 65 2e 6c 20 47 55 |(a6)...M|ove.l GU|
|00002be0| 49 45 6e 76 42 61 73 65 | 2c 61 36 0a 09 4d 6f 76 |IEnvBase|,a6..Mov|
|00002bf0| 65 2e 6c 20 47 75 69 2c | 41 30 0a 09 4d 6f 76 65 |e.l Gui,|A0..Move|
|00002c00| 2e 6c 20 23 32 36 30 2c | 44 30 0a 09 4d 6f 76 65 |.l #260,|D0..Move|
|00002c10| 2e 6c 20 23 30 32 30 2c | 44 31 0a 09 4d 6f 76 65 |.l #020,|D1..Move|
|00002c20| 2e 6c 20 23 31 32 37 2c | 44 32 0a 09 4d 6f 76 65 |.l #127,|D2..Move|
|00002c30| 2e 6c 20 23 30 31 32 2c | 44 33 0a 09 4d 6f 76 65 |.l #012,|D3..Move|
|00002c40| 2e 6c 20 23 42 75 74 74 | 6f 6e 5f 4b 69 6e 64 2c |.l #Butt|on_Kind,|
|00002c50| 44 34 0a 09 4d 6f 76 65 | 2e 6c 20 23 47 61 64 67 |D4..Move|.l #Gadg|
|00002c60| 65 74 30 30 35 54 61 67 | 73 2c 41 31 0a 09 4a 73 |et005Tag|s,A1..Js|
|00002c70| 72 20 43 72 65 61 74 65 | 47 75 69 47 61 64 67 65 |r Create|GuiGadge|
|00002c80| 74 41 28 61 36 29 0a 0a | 09 4d 6f 76 65 2e 6c 20 |tA(a6)..|.Move.l |
|00002c90| 47 75 69 2c 41 30 0a 09 | 4d 6f 76 65 2e 6c 20 23 |Gui,A0..|Move.l #|
|00002ca0| 33 39 30 2c 44 30 0a 09 | 4d 6f 76 65 2e 6c 20 23 |390,D0..|Move.l #|
|00002cb0| 30 32 30 2c 44 31 0a 09 | 4d 6f 76 65 2e 6c 20 23 |020,D1..|Move.l #|
|00002cc0| 32 34 30 2c 44 32 0a 09 | 4d 6f 76 65 2e 6c 20 23 |240,D2..|Move.l #|
|00002cd0| 30 36 2c 44 33 0a 09 4d | 6f 76 65 2e 6c 20 23 47 |06,D3..M|ove.l #G|
|00002ce0| 45 47 5f 50 72 6f 67 72 | 65 73 73 49 6e 64 69 63 |EG_Progr|essIndic|
|00002cf0| 61 74 6f 72 4b 69 6e 64 | 2c 44 34 0a 09 4d 6f 76 |atorKind|,D4..Mov|
|00002d00| 65 2e 6c 20 23 47 61 64 | 67 65 74 30 30 36 54 61 |e.l #Gad|get006Ta|
|00002d10| 67 73 2c 41 31 0a 09 4a | 73 72 20 43 72 65 61 74 |gs,A1..J|sr Creat|
|00002d20| 65 47 75 69 47 61 64 67 | 65 74 41 28 61 36 29 0a |eGuiGadg|etA(a6).|
|00002d30| 0a 09 4d 6f 76 65 2e 6c | 20 47 75 69 2c 41 30 0a |..Move.l| Gui,A0.|
|00002d40| 09 4d 6f 76 65 2e 6c 20 | 23 33 39 30 2c 44 30 0a |.Move.l |#390,D0.|
|00002d50| 09 4d 6f 76 65 2e 6c 20 | 23 30 32 37 2c 44 31 0a |.Move.l |#027,D1.|
|00002d60| 09 4d 6f 76 65 2e 6c 20 | 23 32 34 30 2c 44 32 0a |.Move.l |#240,D2.|
|00002d70| 09 4d 6f 76 65 2e 6c 20 | 23 30 36 2c 44 33 0a 09 |.Move.l |#06,D3..|
|00002d80| 4d 6f 76 65 2e 6c 20 23 | 47 45 47 5f 50 72 6f 67 |Move.l #|GEG_Prog|
|00002d90| 72 65 73 73 49 6e 64 69 | 63 61 74 6f 72 4b 69 6e |ressIndi|catorKin|
|00002da0| 64 2c 44 34 0a 09 4d 6f | 76 65 2e 6c 20 23 47 61 |d,D4..Mo|ve.l #Ga|
|00002db0| 64 67 65 74 30 30 36 54 | 61 67 73 2c 41 31 0a 09 |dget006T|ags,A1..|
|00002dc0| 4a 73 72 20 43 72 65 61 | 74 65 47 75 69 47 61 64 |Jsr Crea|teGuiGad|
|00002dd0| 67 65 74 41 28 61 36 29 | 0a 09 4d 6f 76 65 2e 6c |getA(a6)|..Move.l|
|00002de0| 20 47 55 49 45 6e 76 42 | 61 73 65 2c 61 36 0a 09 | GUIEnvB|ase,a6..|
|00002df0| 4d 6f 76 65 2e 6c 20 47 | 75 69 2c 41 30 0a 09 4d |Move.l G|ui,A0..M|
|00002e00| 6f 76 65 2e 6c 20 23 30 | 30 35 2c 44 30 0a 09 4d |ove.l #0|05,D0..M|
|00002e10| 6f 76 65 2e 6c 20 23 30 | 33 34 2c 44 31 0a 09 4d |ove.l #0|34,D1..M|
|00002e20| 6f 76 65 2e 6c 20 23 30 | 38 30 2c 44 32 0a 09 4d |ove.l #0|80,D2..M|
|00002e30| 6f 76 65 2e 6c 20 23 30 | 31 32 2c 44 33 0a 09 4d |ove.l #0|12,D3..M|
|00002e40| 6f 76 65 2e 6c 20 23 42 | 75 74 74 6f 6e 5f 4b 69 |ove.l #B|utton_Ki|
|00002e50| 6e 64 2c 44 34 0a 09 4d | 6f 76 65 2e 6c 20 23 47 |nd,D4..M|ove.l #G|
|00002e60| 61 64 67 65 74 30 30 38 | 54 61 67 73 2c 41 31 0a |adget008|Tags,A1.|
|00002e70| 09 4a 73 72 20 43 72 65 | 61 74 65 47 75 69 47 61 |.Jsr Cre|ateGuiGa|
|00002e80| 64 67 65 74 41 28 61 36 | 29 0a 09 4d 6f 76 65 2e |dgetA(a6|)..Move.|
|00002e90| 6c 20 47 75 69 2c 41 30 | 0a 09 4d 6f 76 65 2e 6c |l Gui,A0|..Move.l|
|00002ea0| 20 23 30 39 30 2c 44 30 | 0a 09 4d 6f 76 65 2e 6c | #090,D0|..Move.l|
|00002eb0| 20 23 30 33 34 2c 44 31 | 0a 09 4d 6f 76 65 2e 6c | #034,D1|..Move.l|
|00002ec0| 20 23 30 38 30 2c 44 32 | 0a 09 4d 6f 76 65 2e 6c | #080,D2|..Move.l|
|00002ed0| 20 23 30 31 32 2c 44 33 | 0a 09 4d 6f 76 65 2e 6c | #012,D3|..Move.l|
|00002ee0| 20 23 42 75 74 74 6f 6e | 5f 4b 69 6e 64 2c 44 34 | #Button|_Kind,D4|
|00002ef0| 0a 09 4d 6f 76 65 2e 6c | 20 23 47 61 64 67 65 74 |..Move.l| #Gadget|
|00002f00| 30 30 39 54 61 67 73 2c | 41 31 0a 09 4a 73 72 20 |009Tags,|A1..Jsr |
|00002f10| 43 72 65 61 74 65 47 75 | 69 47 61 64 67 65 74 41 |CreateGu|iGadgetA|
|00002f20| 28 61 36 29 0a 09 4d 6f | 76 65 2e 6c 20 47 75 69 |(a6)..Mo|ve.l Gui|
|00002f30| 2c 41 30 0a 09 4d 6f 76 | 65 2e 6c 20 23 32 36 30 |,A0..Mov|e.l #260|
|00002f40| 2c 44 30 0a 09 4d 6f 76 | 65 2e 6c 20 23 30 33 34 |,D0..Mov|e.l #034|
|00002f50| 2c 44 31 0a 09 4d 6f 76 | 65 2e 6c 20 23 31 32 37 |,D1..Mov|e.l #127|
|00002f60| 2c 44 32 0a 09 4d 6f 76 | 65 2e 6c 20 23 30 31 32 |,D2..Mov|e.l #012|
|00002f70| 2c 44 33 0a 09 4d 6f 76 | 65 2e 6c 20 23 42 75 74 |,D3..Mov|e.l #But|
|00002f80| 74 6f 6e 5f 4b 69 6e 64 | 2c 44 34 0a 09 4d 6f 76 |ton_Kind|,D4..Mov|
|00002f90| 65 2e 6c 20 23 47 61 64 | 67 65 74 30 31 30 54 61 |e.l #Gad|get010Ta|
|00002fa0| 67 73 2c 41 31 0a 09 4a | 73 72 20 43 72 65 61 74 |gs,A1..J|sr Creat|
|00002fb0| 65 47 75 69 47 61 64 67 | 65 74 41 28 61 36 29 0a |eGuiGadg|etA(a6).|
|00002fc0| 0a 09 4d 6f 76 65 2e 6c | 20 47 75 69 2c 41 30 0a |..Move.l| Gui,A0.|
|00002fd0| 09 4d 6f 76 65 2e 6c 20 | 23 31 37 35 2c 44 30 0a |.Move.l |#175,D0.|
|00002fe0| 09 4d 6f 76 65 2e 6c 20 | 23 30 33 34 2c 44 31 0a |.Move.l |#034,D1.|
|00002ff0| 09 4d 6f 76 65 2e 6c 20 | 23 30 38 30 2c 44 32 0a |.Move.l |#080,D2.|
|00003000| 09 4d 6f 76 65 2e 6c 20 | 23 30 31 32 2c 44 33 0a |.Move.l |#012,D3.|
|00003010| 09 4d 6f 76 65 2e 6c 20 | 23 42 75 74 74 6f 6e 5f |.Move.l |#Button_|
|00003020| 4b 69 6e 64 2c 44 34 0a | 09 4d 6f 76 65 2e 6c 20 |Kind,D4.|.Move.l |
|00003030| 23 47 61 64 67 65 74 30 | 31 31 54 61 67 73 2c 41 |#Gadget0|11Tags,A|
|00003040| 31 0a 09 4a 73 72 20 43 | 72 65 61 74 65 47 75 69 |1..Jsr C|reateGui|
|00003050| 47 61 64 67 65 74 41 28 | 61 36 29 0a 0a 09 4d 6f |GadgetA(|a6)...Mo|
|00003060| 76 65 2e 6c 20 47 75 69 | 2c 41 30 0a 09 4d 6f 76 |ve.l Gui|,A0..Mov|
|00003070| 65 2e 6c 20 23 33 39 30 | 2c 44 30 0a 09 4d 6f 76 |e.l #390|,D0..Mov|
|00003080| 65 2e 6c 20 23 30 33 34 | 2c 44 31 0a 09 4d 6f 76 |e.l #034|,D1..Mov|
|00003090| 65 2e 6c 20 23 30 38 30 | 2c 44 32 0a 09 4d 6f 76 |e.l #080|,D2..Mov|
|000030a0| 65 2e 6c 20 23 30 31 32 | 2c 44 33 0a 09 4d 6f 76 |e.l #012|,D3..Mov|
|000030b0| 65 2e 6c 20 23 42 75 74 | 74 6f 6e 5f 4b 69 6e 64 |e.l #But|ton_Kind|
|000030c0| 2c 44 34 0a 09 4d 6f 76 | 65 2e 6c 20 23 47 61 64 |,D4..Mov|e.l #Gad|
|000030d0| 67 65 74 30 31 32 54 61 | 67 73 2c 41 31 0a 09 4a |get012Ta|gs,A1..J|
|000030e0| 73 72 20 43 72 65 61 74 | 65 47 75 69 47 61 64 67 |sr Creat|eGuiGadg|
|000030f0| 65 74 41 28 61 36 29 0a | 0a 20 20 20 20 4d 6f 76 |etA(a6).|.    Mov|
|00003100| 65 2e 6c 20 47 75 69 2c | 41 30 0a 20 20 20 20 4d |e.l Gui,|A0.    M|
|00003110| 6f 76 65 2e 6c 20 23 30 | 2c 41 31 0a 20 20 20 20 |ove.l #0|,A1.    |
|00003120| 4a 73 72 20 44 72 61 77 | 47 75 69 41 28 61 36 29 |Jsr Draw|GuiA(a6)|
|00003130| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 30 2c 52 |.    Mov|e.l D0,R|
|00003140| 65 73 75 6c 74 0a 09 52 | 54 53 0a 0a 43 6c 6f 73 |esult..R|TS..Clos|
|00003150| 65 5f 57 69 6e 64 6f 77 | 3a 0a 09 4d 6f 76 65 2e |e_Window|:..Move.|
|00003160| 6c 20 47 55 49 45 6e 76 | 42 61 73 65 2c 61 36 0a |l GUIEnv|Base,a6.|
|00003170| 09 4d 6f 76 65 2e 6c 20 | 57 69 6e 64 6f 77 2c 41 |.Move.l |Window,A|
|00003180| 30 0a 09 4a 73 72 20 43 | 6c 6f 73 65 47 75 69 57 |0..Jsr C|loseGuiW|
|00003190| 69 6e 64 6f 77 28 61 36 | 29 0a 09 52 54 53 0a 0a |indow(a6|)..RTS..|
|000031a0| 0a 57 72 69 74 65 50 6c | 61 69 6e 3a 20 20 20 20 |.WritePl|ain:    |
|000031b0| 0a 20 20 20 20 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |.       | Move.l |
|000031c0| 23 30 2c 44 36 0a 20 20 | 20 20 20 20 20 20 4a 73 |#0,D6.  |      Js|
|000031d0| 72 20 43 6f 6e 76 65 72 | 74 7a 61 68 6c 0a 20 20 |r Conver|tzahl.  |
|000031e0| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 5a 75 |      Mo|ve.l #Zu|
|000031f0| 73 61 74 7a 2c 44 30 0a | 20 20 20 20 20 20 20 20 |satz,D0.|        |
|00003200| 4d 6f 76 65 2e 6c 20 44 | 30 2c 5a 65 69 67 65 72 |Move.l D|0,Zeiger|
|00003210| 0a 20 20 20 20 20 20 20 | 20 4d 6f 76 65 71 2e 6c |.       | Moveq.l|
|00003220| 20 23 24 38 2c 44 30 0a | 20 20 20 20 20 20 20 20 | #$8,D0.|        |
|00003230| 4d 6f 76 65 2e 6c 20 44 | 30 2c 41 6e 7a 0a 2e 57 |Move.l D|0,Anz..W|
|00003240| 72 69 74 65 5f 53 79 6c | 6b 5f 74 65 73 74 31 3a |rite_Syl|k_test1:|
|00003250| 0a 20 20 20 20 20 20 20 | 20 43 6c 72 2e 6c 20 44 |.       | Clr.l D|
|00003260| 30 0a 20 20 20 20 20 20 | 20 20 4d 6f 76 65 2e 6c |0.      |  Move.l|
|00003270| 20 5a 65 69 67 65 72 2c | 41 30 0a 20 20 20 20 20 | Zeiger,|A0.     |
|00003280| 20 20 20 4d 6f 76 65 2e | 62 20 28 41 30 29 2c 44 |   Move.|b (A0),D|
|00003290| 30 0a 20 20 20 20 20 20 | 20 20 4d 6f 76 65 2e 6c |0.      |  Move.l|
|000032a0| 20 44 30 2c 57 65 72 74 | 0a 20 20 20 20 20 20 20 | D0,Wert|.       |
|000032b0| 20 63 6d 70 69 2e 6c 20 | 23 24 30 30 30 30 30 30 | cmpi.l |#$000000|
|000032c0| 32 30 2c 57 65 72 74 0a | 20 20 20 20 20 20 20 20 |20,Wert.|        |
|000032d0| 62 6e 65 20 2e 57 72 69 | 74 65 5f 53 79 6c 6b 5f |bne .Wri|te_Sylk_|
|000032e0| 54 65 73 74 32 0a 20 20 | 20 20 20 20 20 20 4d 6f |Test2.  |      Mo|
|000032f0| 76 65 2e 6c 20 5a 65 69 | 67 65 72 2c 44 30 0a 20 |ve.l Zei|ger,D0. |
|00003300| 20 20 20 20 20 20 20 41 | 64 64 71 2e 6c 20 23 31 |       A|ddq.l #1|
|00003310| 2c 44 30 0a 20 20 20 20 | 20 20 20 20 4d 6f 76 65 |,D0.    |    Move|
|00003320| 2e 6c 20 44 30 2c 5a 65 | 69 67 65 72 0a 20 20 20 |.l D0,Ze|iger.   |
|00003330| 20 20 20 20 20 4d 6f 76 | 65 2e 6c 20 41 6e 7a 2c |     Mov|e.l Anz,|
|00003340| 44 30 0a 20 20 20 20 20 | 20 20 20 53 75 62 71 2e |D0.     |   Subq.|
|00003350| 6c 20 23 31 2c 44 30 0a | 20 20 20 20 20 20 20 20 |l #1,D0.|        |
|00003360| 4d 6f 76 65 2e 6c 20 44 | 30 2c 41 6e 7a 0a 20 20 |Move.l D|0,Anz.  |
|00003370| 20 20 20 20 20 20 62 72 | 61 20 2e 57 72 69 74 65 |      br|a .Write|
|00003380| 5f 53 79 6c 6b 5f 74 65 | 73 74 31 0a 2e 57 72 69 |_Sylk_te|st1..Wri|
|00003390| 74 65 5f 53 79 6c 6b 5f | 74 65 73 74 32 3a 0a 20 |te_Sylk_|test2:. |
|000033a0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 4f |       M|ove.l DO|
|000033b0| 53 42 61 73 65 2c 61 36 | 0a 20 20 20 20 20 20 20 |SBase,a6|.       |
|000033c0| 20 4d 6f 76 65 2e 6c 20 | 57 48 2c 64 31 0a 20 20 | Move.l |WH,d1.  |
|000033d0| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 5a 65 69 |      Mo|ve.l Zei|
|000033e0| 67 65 72 2c 64 32 0a 20 | 20 20 20 20 20 20 20 4d |ger,d2. |       M|
|000033f0| 6f 76 65 2e 6c 20 61 6e | 7a 2c 64 33 0a 20 20 20 |ove.l an|z,d3.   |
|00003400| 20 20 20 20 20 4a 73 72 | 20 57 72 69 74 65 28 61 |     Jsr| Write(a|
|00003410| 36 29 0a 20 20 20 20 20 | 20 20 20 52 54 53 0a 0a |6).     |   RTS..|
|00003420| 43 6f 75 6e 74 43 65 6c | 6c 73 3a 20 20 20 20 0a |CountCel|ls:    .|
|00003430| 20 20 20 20 6d 6f 76 65 | 71 2e 6c 20 23 30 2c 64 |    move|q.l #0,d|
|00003440| 30 0a 2e 63 6f 75 6e 74 | 3a 0a 20 20 20 20 6c 65 |0..count|:.    le|
|00003450| 61 20 31 28 61 30 29 2c | 61 30 0a 20 20 20 20 61 |a 1(a0),|a0.    a|
|00003460| 64 64 71 2e 6c 20 23 31 | 2c 64 30 0a 2e 43 6f 75 |ddq.l #1|,d0..Cou|
|00003470| 6e 74 43 65 6c 6c 73 31 | 3a 0a 20 20 20 20 63 6d |ntCells1|:.    cm|
|00003480| 70 69 2e 62 20 23 60 3a | 60 2c 28 61 30 29 0a 20 |pi.b #`:|`,(a0). |
|00003490| 20 20 20 62 65 71 20 2e | 63 6f 75 6e 74 0a 20 20 |   beq .|count.  |
|000034a0| 20 20 63 6d 70 69 2e 62 | 20 23 60 2f 60 2c 28 61 |  cmpi.b| #`/`,(a|
|000034b0| 30 29 0a 20 20 20 20 62 | 65 71 20 2e 43 6f 75 6e |0).    b|eq .Coun|
|000034c0| 74 0a 20 20 20 20 63 6d | 70 69 2e 62 20 23 24 30 |t.    cm|pi.b #$0|
|000034d0| 61 2c 28 61 30 29 0a 20 | 20 20 20 62 65 71 20 2e |a,(a0). |   beq .|
|000034e0| 65 6e 64 65 0a 20 20 20 | 20 63 6d 70 69 2e 62 20 |ende.   | cmpi.b |
|000034f0| 23 24 30 30 2c 28 61 30 | 29 0a 20 20 20 20 62 65 |#$00,(a0|).    be|
|00003500| 71 20 2e 65 6e 64 65 0a | 20 20 20 20 6c 65 61 20 |q .ende.|    lea |
|00003510| 31 28 61 30 29 2c 61 30 | 0a 20 20 20 20 62 72 61 |1(a0),a0|.    bra|
|00003520| 20 2e 43 6f 75 6e 74 43 | 65 6c 6c 73 31 0a 2e 65 | .CountC|ells1..e|
|00003530| 6e 64 65 3a 0a 20 20 20 | 20 52 54 53 0a 0a 57 72 |nde:.   | RTS..Wr|
|00003540| 69 74 65 5a 65 6c 6c 65 | 3a 20 20 20 20 20 20 20 |iteZelle|:       |
|00003550| 0a 20 20 20 20 6d 6f 76 | 65 71 2e 6c 20 23 30 2c |.    mov|eq.l #0,|
|00003560| 64 30 0a 2e 63 6f 75 6e | 74 3a 0a 20 20 20 20 61 |d0..coun|t:.    a|
|00003570| 64 64 71 2e 6c 20 23 31 | 2c 64 30 0a 20 20 20 20 |ddq.l #1|,d0.    |
|00003580| 63 6d 70 69 2e 6c 20 64 | 30 2c 64 31 0a 20 20 20 |cmpi.l d|0,d1.   |
|00003590| 20 62 65 71 20 2e 77 72 | 69 74 65 0a 20 20 20 20 | beq .wr|ite.    |
|000035a0| 6c 65 61 20 31 28 61 30 | 29 2c 61 30 0a 2e 43 6f |lea 1(a0|),a0..Co|
|000035b0| 75 6e 74 43 65 6c 6c 73 | 31 3a 0a 20 20 20 20 63 |untCells|1:.    c|
|000035c0| 6d 70 69 2e 62 20 23 60 | 3a 60 2c 28 61 30 29 0a |mpi.b #`|:`,(a0).|
|000035d0| 20 20 20 20 62 65 71 20 | 2e 63 6f 75 6e 74 0a 20 |    beq |.count. |
|000035e0| 20 20 20 63 6d 70 69 2e | 62 20 23 60 2f 60 2c 28 |   cmpi.|b #`/`,(|
|000035f0| 61 30 29 0a 20 20 20 20 | 62 65 71 20 2e 43 6f 75 |a0).    |beq .Cou|
|00003600| 6e 74 0a 20 20 20 20 6c | 65 61 20 31 28 61 30 29 |nt.    l|ea 1(a0)|
|00003610| 2c 61 30 0a 20 20 20 20 | 62 6e 65 20 2e 43 6f 75 |,a0.    |bne .Cou|
|00003620| 6e 74 43 65 6c 6c 73 31 | 0a 2e 57 72 69 74 65 3a |ntCells1|..Write:|
|00003630| 0a 20 20 20 20 63 6d 70 | 69 2e 6c 20 23 31 2c 64 |.    cmp|i.l #1,d|
|00003640| 31 0a 20 20 20 20 62 65 | 71 20 2e 77 72 69 74 65 |1.    be|q .write|
|00003650| 30 0a 20 20 20 20 6c 65 | 61 20 31 28 61 30 29 2c |0.    le|a 1(a0),|
|00003660| 61 30 0a 2e 77 72 69 74 | 65 30 3a 0a 20 20 20 20 |a0..writ|e0:.    |
|00003670| 6d 6f 76 65 2e 6c 20 61 | 30 2c 61 31 0a 2e 77 65 |move.l a|0,a1..we|
|00003680| 69 74 65 72 3a 0a 20 20 | 20 20 63 6d 70 69 2e 62 |iter:.  |  cmpi.b|
|00003690| 20 23 60 3a 60 2c 28 61 | 30 29 0a 20 20 20 20 62 | #`:`,(a|0).    b|
|000036a0| 65 71 20 2e 6e 65 78 74 | 0a 20 20 20 20 63 6d 70 |eq .next|.    cmp|
|000036b0| 69 2e 62 20 23 60 2f 60 | 2c 28 61 30 29 0a 20 20 |i.b #`/`|,(a0).  |
|000036c0| 20 20 62 65 71 20 2e 6e | 65 78 74 0a 20 20 20 20 |  beq .n|ext.    |
|000036d0| 63 6d 70 69 2e 62 20 23 | 24 30 61 2c 28 61 30 29 |cmpi.b #|$0a,(a0)|
|000036e0| 0a 20 20 20 20 62 65 71 | 20 2e 6e 65 78 74 0a 20 |.    beq| .next. |
|000036f0| 20 20 20 63 6d 70 69 2e | 62 20 23 24 30 30 2c 28 |   cmpi.|b #$00,(|
|00003700| 61 30 29 0a 20 20 20 20 | 62 65 71 20 2e 6e 65 78 |a0).    |beq .nex|
|00003710| 74 0a 20 20 20 20 6c 65 | 61 20 31 28 61 30 29 2c |t.    le|a 1(a0),|
|00003720| 61 30 0a 20 20 20 20 62 | 72 61 20 2e 77 65 69 74 |a0.    b|ra .weit|
|00003730| 65 72 0a 2e 6e 65 78 74 | 3a 0a 20 20 20 20 73 75 |er..next|:.    su|
|00003740| 62 2e 6c 20 61 31 2c 61 | 30 0a 20 20 20 20 4d 6f |b.l a1,a|0.    Mo|
|00003750| 76 65 2e 6c 20 44 4f 53 | 42 61 73 65 2c 61 36 0a |ve.l DOS|Base,a6.|
|00003760| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 57 48 2c 64 31 |    Move|.l WH,d1|
|00003770| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 61 31 2c 64 |.    Mov|e.l a1,d|
|00003780| 32 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 61 30 2c |2.    Mo|ve.l a0,|
|00003790| 64 33 0a 20 20 20 20 4a | 73 72 20 57 72 69 74 65 |d3.    J|sr Write|
|000037a0| 28 61 36 29 0a 20 20 20 | 20 52 54 53 0a 0a 54 65 |(a6).   | RTS..Te|
|000037b0| 73 74 46 69 6c 65 6e 61 | 6d 65 3a 20 20 20 20 20 |stFilena|me:     |
|000037c0| 20 20 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 4f |  .    M|ove.l DO|
|000037d0| 53 42 61 73 65 2c 61 36 | 0a 20 20 20 20 4d 6f 76 |SBase,a6|.    Mov|
|000037e0| 65 2e 6c 20 44 37 2c 64 | 31 0a 20 20 20 20 4d 6f |e.l D7,d|1.    Mo|
|000037f0| 76 65 2e 6c 20 23 42 75 | 66 66 65 72 2c 64 32 0a |ve.l #Bu|ffer,d2.|
|00003800| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 31 30 30 30 |    Move|.l #1000|
|00003810| 2c 64 33 0a 20 20 20 20 | 4a 73 72 20 4e 61 6d 65 |,d3.    |Jsr Name|
|00003820| 66 72 6f 6d 46 48 28 61 | 36 29 0a 20 20 20 20 4d |fromFH(a|6).    M|
|00003830| 6f 76 65 2e 6c 20 44 37 | 2c 64 31 0a 20 20 20 20 |ove.l D7|,d1.    |
|00003840| 4d 6f 76 65 2e 6c 20 23 | 30 2c 64 32 0a 20 20 20 |Move.l #|0,d2.   |
|00003850| 20 4d 6f 76 65 2e 6c 20 | 23 4f 66 66 73 65 74 5f | Move.l |#Offset_|
|00003860| 65 6e 64 2c 64 33 0a 20 | 20 20 20 4a 73 72 20 53 |end,d3. |   Jsr S|
|00003870| 65 65 6b 28 61 36 29 0a | 20 20 20 20 4d 6f 76 65 |eek(a6).|    Move|
|00003880| 2e 6c 20 64 37 2c 64 31 | 0a 20 20 20 20 4d 6f 76 |.l d7,d1|.    Mov|
|00003890| 65 2e 6c 20 23 30 2c 64 | 32 0a 20 20 20 20 4d 6f |e.l #0,d|2.    Mo|
|000038a0| 76 65 2e 6c 20 23 4f 66 | 66 73 65 74 5f 62 65 67 |ve.l #Of|fset_beg|
|000038b0| 69 6e 2c 64 33 0a 20 20 | 20 20 4a 73 72 20 53 65 |in,d3.  |  Jsr Se|
|000038c0| 65 6b 28 61 36 29 0a 20 | 20 20 20 4d 6f 76 65 2e |ek(a6). |   Move.|
|000038d0| 6c 20 44 30 2c 4c 61 65 | 6e 67 65 0a 20 20 20 20 |l D0,Lae|nge.    |
|000038e0| 4d 6f 76 65 2e 6c 20 45 | 78 65 63 42 61 73 65 2c |Move.l E|xecBase,|
|000038f0| 61 36 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 4c 61 |a6.    M|ove.l La|
|00003900| 65 6e 67 65 2c 64 30 0a | 20 20 20 20 4d 6f 76 65 |enge,d0.|    Move|
|00003910| 2e 6c 20 23 4d 45 4d 46 | 5f 43 4c 45 41 52 21 4d |.l #MEMF|_CLEAR!M|
|00003920| 45 4d 46 5f 50 55 42 4c | 49 43 2c 64 31 0a 20 20 |EMF_PUBL|IC,d1.  |
|00003930| 20 20 4a 73 72 20 41 6c | 6c 6f 63 4d 65 6d 28 61 |  Jsr Al|locMem(a|
|00003940| 36 29 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |6).    M|ove.l D0|
|00003950| 2c 4d 65 6d 6f 72 79 62 | 6c 6f 63 6b 0a 20 20 20 |,Memoryb|lock.   |
|00003960| 20 54 73 74 2e 6c 20 4d | 65 6d 6f 72 79 42 6c 6f | Tst.l M|emoryBlo|
|00003970| 63 6b 0a 20 20 20 20 42 | 65 71 20 2e 65 72 72 6f |ck.    B|eq .erro|
|00003980| 72 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 44 4f 53 |r.    Mo|ve.l DOS|
|00003990| 42 61 73 65 2c 61 36 0a | 20 20 20 20 4d 6f 76 65 |Base,a6.|    Move|
|000039a0| 2e 6c 20 64 37 2c 64 31 | 0a 20 20 20 20 4d 6f 76 |.l d7,d1|.    Mov|
|000039b0| 65 2e 6c 20 4d 65 6d 6f | 72 79 62 6c 6f 63 6b 2c |e.l Memo|ryblock,|
|000039c0| 64 32 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 4c 61 |d2.    M|ove.l La|
|000039d0| 65 6e 67 65 2c 64 33 0a | 20 20 20 20 4a 73 72 20 |enge,d3.|    Jsr |
|000039e0| 52 65 61 64 28 61 36 29 | 0a 20 20 20 20 4d 6f 76 |Read(a6)|.    Mov|
|000039f0| 65 2e 6c 20 4d 65 6d 6f | 72 79 62 6c 6f 63 6b 2c |e.l Memo|ryblock,|
|00003a00| 64 30 0a 20 20 20 20 52 | 54 53 0a 2e 45 72 72 6f |d0.    R|TS..Erro|
|00003a10| 72 3a 0a 20 20 20 20 4d | 6f 76 65 71 2e 6c 20 23 |r:.    M|oveq.l #|
|00003a20| 30 2c 64 30 0a 20 20 20 | 20 52 54 53 0a 0a 54 65 |0,d0.   | RTS..Te|
|00003a30| 72 6d 69 6e 61 74 65 53 | 74 72 69 6e 67 3a 0a 20 |rminateS|tring:. |
|00003a40| 20 20 20 6d 6f 76 65 2e | 6c 20 61 30 2c 2d 28 61 |   move.|l a0,-(a|
|00003a50| 37 29 0a 2e 6c 31 3a 63 | 6d 70 69 2e 62 20 23 24 |7)..l1:c|mpi.b #$|
|00003a60| 30 30 2c 28 61 30 29 0a | 20 20 20 20 62 65 71 20 |00,(a0).|    beq |
|00003a70| 2e 65 6e 64 65 0a 20 20 | 20 20 63 6d 70 69 2e 62 |.ende.  |  cmpi.b|
|00003a80| 20 23 24 30 61 2c 28 61 | 30 29 0a 20 20 20 20 62 | #$0a,(a|0).    b|
|00003a90| 65 71 20 2e 54 65 72 6d | 0a 20 20 20 20 6c 65 61 |eq .Term|.    lea|
|00003aa0| 20 31 28 61 30 29 2c 61 | 30 0a 20 20 20 20 62 72 | 1(a0),a|0.    br|
|00003ab0| 61 2e 73 20 2e 6c 31 0a | 2e 54 65 72 6d 3a 0a 20 |a.s .l1.|.Term:. |
|00003ac0| 20 20 20 6d 6f 76 65 2e | 62 20 23 24 30 30 2c 28 |   move.|b #$00,(|
|00003ad0| 61 30 29 0a 2e 65 6e 64 | 65 3a 0a 20 20 20 20 6d |a0)..end|e:.    m|
|00003ae0| 6f 76 65 2e 6c 20 28 61 | 37 29 2b 2c 61 30 0a 20 |ove.l (a|7)+,a0. |
|00003af0| 20 20 20 52 54 53 0a 0a | 52 47 65 74 73 3a 20 20 |   RTS..|RGets:  |
|00003b00| 20 20 0a 20 20 20 20 4a | 73 72 20 54 65 72 6d 69 |  .    J|sr Termi|
|00003b10| 6e 61 74 65 53 74 72 69 | 6e 67 0a 20 20 20 20 6d |nateStri|ng.    m|
|00003b20| 6f 76 65 2e 6c 20 6d 65 | 6d 6f 72 79 62 6c 6f 63 |ove.l me|morybloc|
|00003b30| 6b 2c 61 31 0a 20 20 20 | 20 61 64 64 2e 6c 20 4c |k,a1.   | add.l L|
|00003b40| 61 65 6e 67 65 2c 61 31 | 0a 20 20 20 20 63 6d 70 |aenge,a1|.    cmp|
|00003b50| 2e 6c 20 61 30 2c 61 31 | 0a 20 20 20 20 62 6c 65 |.l a0,a1|.    ble|
|00003b60| 20 2e 65 72 72 6f 72 0a | 20 20 20 20 6d 6f 76 65 | .error.|    move|
|00003b70| 71 2e 6c 20 23 31 2c 64 | 30 0a 20 20 20 20 52 54 |q.l #1,d|0.    RT|
|00003b80| 53 0a 2e 65 72 72 6f 72 | 3a 0a 20 20 20 20 6d 6f |S..error|:.    mo|
|00003b90| 76 65 71 2e 6c 20 23 30 | 2c 64 30 0a 20 20 20 20 |veq.l #0|,d0.    |
|00003ba0| 52 54 53 0a 0a 52 47 65 | 74 73 32 3a 20 20 20 20 |RTS..RGe|ts2:    |
|00003bb0| 0a 20 20 20 20 4a 73 72 | 20 43 6f 75 6e 74 73 74 |.    Jsr| Countst|
|00003bc0| 72 69 6e 67 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |ring.   | Move.l |
|00003bd0| 44 30 2c 4f 4b 0a 20 20 | 20 20 6d 6f 76 65 2e 6c |D0,OK.  |  move.l|
|00003be0| 20 61 30 2c 61 31 0a 20 | 20 20 20 61 64 64 2e 6c | a0,a1. |   add.l|
|00003bf0| 20 4f 6b 2c 61 31 0a 20 | 20 20 20 61 64 64 69 2e | Ok,a1. |   addi.|
|00003c00| 6c 20 23 31 2c 61 31 0a | 20 20 20 20 6d 6f 76 65 |l #1,a1.|    move|
|00003c10| 2e 6c 20 6d 65 6d 6f 72 | 79 62 6c 6f 63 6b 2c 61 |.l memor|yblock,a|
|00003c20| 30 0a 20 20 20 20 61 64 | 64 2e 6c 20 6c 65 6e 2c |0.    ad|d.l len,|
|00003c30| 61 30 0a 20 20 20 20 63 | 6d 70 61 2e 6c 20 61 30 |a0.    c|mpa.l a0|
|00003c40| 2c 61 31 0a 20 20 20 20 | 62 67 65 20 2e 6c 31 0a |,a1.    |bge .l1.|
|00003c50| 20 20 20 20 6d 6f 76 65 | 2e 6c 20 61 31 2c 64 30 |    move|.l a1,d0|
|00003c60| 0a 20 20 20 20 52 54 53 | 0a 2e 6c 31 3a 0a 20 20 |.    RTS|..l1:.  |
|00003c70| 20 20 6d 6f 76 65 71 2e | 6c 20 23 30 2c 64 30 0a |  moveq.|l #0,d0.|
|00003c80| 20 20 20 20 52 54 53 0a | 0a 50 72 6f 67 72 65 73 |    RTS.|.Progres|
|00003c90| 73 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s:      |        |
|00003ca0| 20 20 0a 20 20 20 20 4c | 65 61 20 53 65 74 50 72 |  .    L|ea SetPr|
|00003cb0| 6f 67 72 65 73 73 54 61 | 67 73 2c 61 30 0a 20 20 |ogressTa|gs,a0.  |
|00003cc0| 20 20 6d 6f 76 65 2e 6c | 20 50 72 6f 7a 65 6e 74 |  move.l| Prozent|
|00003cd0| 2c 34 28 61 30 29 0a 20 | 20 20 20 4d 6f 76 65 2e |,4(a0). |   Move.|
|00003ce0| 6c 20 47 55 49 45 6e 76 | 42 61 73 65 2c 61 36 0a |l GUIEnv|Base,a6.|
|00003cf0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 67 75 69 2c 41 |    Move|.l gui,A|
|00003d00| 30 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 47 61 64 |0.    Mo|ve.l Gad|
|00003d10| 67 65 74 2c 44 30 0a 20 | 20 20 20 4d 6f 76 65 2e |get,D0. |   Move.|
|00003d20| 6c 20 23 53 65 74 50 72 | 6f 67 72 65 73 73 54 61 |l #SetPr|ogressTa|
|00003d30| 67 73 2c 41 31 0a 20 20 | 20 20 4a 73 72 20 53 65 |gs,A1.  |  Jsr Se|
|00003d40| 74 47 55 49 47 61 64 67 | 65 74 41 28 61 36 29 0a |tGUIGadg|etA(a6).|
|00003d50| 20 20 20 20 52 54 53 0a | 0a 43 6f 70 79 3a 20 20 |    RTS.|.Copy:  |
|00003d60| 20 20 20 20 20 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |     .  |  Move.l|
|00003d70| 20 44 4f 53 42 61 73 65 | 2c 61 36 0a 20 20 20 20 | DOSBase|,a6.    |
|00003d80| 4d 6f 76 65 2e 6c 20 64 | 36 2c 64 31 0a 20 20 20 |Move.l d|6,d1.   |
|00003d90| 20 4d 6f 76 65 2e 6c 20 | 23 42 75 66 66 65 72 2c | Move.l |#Buffer,|
|00003da0| 64 32 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 31 |d2.    M|ove.l #1|
|00003db0| 30 30 30 2c 64 33 0a 20 | 20 20 20 4a 73 72 20 52 |000,d3. |   Jsr R|
|00003dc0| 65 61 64 28 61 36 29 0a | 20 20 20 20 4d 6f 76 65 |ead(a6).|    Move|
|00003dd0| 2e 6c 20 44 30 2c 61 6e | 7a 0a 20 20 20 20 4d 6f |.l D0,an|z.    Mo|
|00003de0| 76 65 2e 6c 20 64 37 2c | 64 31 0a 20 20 20 20 4d |ve.l d7,|d1.    M|
|00003df0| 6f 76 65 2e 6c 20 23 42 | 75 66 66 65 72 2c 64 32 |ove.l #B|uffer,d2|
|00003e00| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 61 6e 7a 2c |.    Mov|e.l anz,|
|00003e10| 64 33 0a 20 20 20 20 4a | 73 72 20 57 72 69 74 65 |d3.    J|sr Write|
|00003e20| 28 61 36 29 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |(a6).   | Move.l |
|00003e30| 44 30 2c 61 6e 7a 0a 20 | 20 20 20 4d 6f 76 65 2e |D0,anz. |   Move.|
|00003e40| 6c 20 41 6e 7a 2c 64 30 | 0a 20 20 20 20 43 6d 70 |l Anz,d0|.    Cmp|
|00003e50| 2e 6c 20 23 31 30 30 30 | 2c 44 30 0a 20 20 20 20 |.l #1000|,D0.    |
|00003e60| 42 65 71 20 43 6f 70 79 | 0a 20 20 20 20 52 54 53 |Beq Copy|.    RTS|
|00003e70| 0a 0a 53 65 74 50 66 61 | 64 3a 20 20 0a 20 20 20 |..SetPfa|d:  .   |
|00003e80| 20 4d 6f 76 65 2e 6c 20 | 44 4f 53 42 61 73 65 2c | Move.l |DOSBase,|
|00003e90| 61 36 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 54 48 |a6.    M|ove.l TH|
|00003ea0| 2c 64 31 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |,d1.    |Move.l #|
|00003eb0| 50 66 61 64 2c 64 32 0a | 20 20 20 20 4a 73 72 20 |Pfad,d2.|    Jsr |
|00003ec0| 46 50 75 74 73 28 61 36 | 29 0a 20 20 20 20 4d 6f |FPuts(a6|).    Mo|
|00003ed0| 76 65 2e 6c 20 23 70 66 | 61 64 2c 41 30 0a 20 20 |ve.l #pf|ad,A0.  |
|00003ee0| 20 20 4a 73 72 20 43 6f | 75 6e 74 53 74 72 69 6e |  Jsr Co|untStrin|
|00003ef0| 67 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 44 30 2c |g.    Mo|ve.l D0,|
|00003f00| 4f 4b 0a 20 20 20 20 4c | 65 61 20 50 46 61 64 2c |OK.    L|ea PFad,|
|00003f10| 61 30 0a 20 20 20 20 61 | 64 64 2e 6c 20 6f 6b 2c |a0.    a|dd.l ok,|
|00003f20| 61 30 0a 2e 6c 31 3a 63 | 6d 70 69 2e 62 20 23 22 |a0..l1:c|mpi.b #"|
|00003f30| 2f 22 2c 28 61 30 29 0a | 20 20 20 20 62 65 71 20 |/",(a0).|    beq |
|00003f40| 2e 54 68 61 74 73 69 74 | 0a 20 20 20 20 63 6d 70 |.Thatsit|.    cmp|
|00003f50| 69 2e 62 20 23 22 3a 22 | 2c 28 61 30 29 0a 20 20 |i.b #":"|,(a0).  |
|00003f60| 20 20 62 65 71 20 2e 54 | 68 61 74 73 69 74 0a 20 |  beq .T|hatsit. |
|00003f70| 20 20 20 6c 65 61 20 2d | 31 28 61 30 29 2c 61 30 |   lea -|1(a0),a0|
|00003f80| 0a 20 20 20 20 62 72 61 | 20 2e 6c 31 0a 2e 54 68 |.    bra| .l1..Th|
|00003f90| 61 74 73 49 74 3a 0a 20 | 20 20 20 6d 6f 76 65 2e |atsIt:. |   move.|
|00003fa0| 62 20 23 30 2c 31 28 61 | 30 29 0a 20 20 20 20 4d |b #0,1(a|0).    M|
|00003fb0| 6f 76 65 2e 6c 20 23 70 | 66 61 64 2c 41 30 0a 20 |ove.l #p|fad,A0. |
|00003fc0| 20 20 20 4a 73 72 20 43 | 6f 75 6e 74 53 74 72 69 |   Jsr C|ountStri|
|00003fd0| 6e 67 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |ng.    M|ove.l D0|
|00003fe0| 2c 4f 4b 0a 20 20 20 20 | 52 54 53 20 20 20 20 0a |,OK.    |RTS    .|
|00003ff0| 0a 53 65 74 50 66 61 64 | 5f 43 72 75 6e 63 68 3a |.SetPfad|_Crunch:|
|00004000| 20 20 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 4f |  .    M|ove.l DO|
|00004010| 53 42 61 73 65 2c 61 36 | 0a 20 20 20 20 4d 6f 76 |SBase,a6|.    Mov|
|00004020| 65 2e 6c 20 54 48 2c 64 | 31 0a 20 20 20 20 4d 6f |e.l TH,d|1.    Mo|
|00004030| 76 65 2e 6c 20 23 50 66 | 61 64 2c 64 32 0a 20 20 |ve.l #Pf|ad,d2.  |
|00004040| 20 20 4a 73 72 20 46 50 | 75 74 73 28 61 36 29 0a |  Jsr FP|uts(a6).|
|00004050| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 70 66 61 64 |    Move|.l #pfad|
|00004060| 2c 41 30 0a 20 20 20 20 | 4a 73 72 20 43 6f 75 6e |,A0.    |Jsr Coun|
|00004070| 74 53 74 72 69 6e 67 0a | 20 20 20 20 4d 6f 76 65 |tString.|    Move|
|00004080| 2e 6c 20 44 30 2c 4f 4b | 0a 20 20 20 20 4d 6f 76 |.l D0,OK|.    Mov|
|00004090| 65 2e 6c 20 57 72 69 74 | 65 6c 61 65 6e 67 65 2c |e.l Writ|elaenge,|
|000040a0| 44 30 0a 20 20 20 20 41 | 64 64 2e 6c 20 4f 4b 2c |D0.    A|dd.l OK,|
|000040b0| 44 30 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |D0.    M|ove.l D0|
|000040c0| 2c 57 72 69 74 65 4c 61 | 65 6e 67 65 0a 20 20 20 |,WriteLa|enge.   |
|000040d0| 20 4d 6f 76 65 2e 6c 20 | 52 65 61 64 6c 61 65 6e | Move.l |Readlaen|
|000040e0| 67 65 2c 44 30 0a 20 20 | 20 20 41 64 64 2e 6c 20 |ge,D0.  |  Add.l |
|000040f0| 4f 4b 2c 44 30 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |OK,D0.  |  Move.l|
|00004100| 20 44 30 2c 52 65 61 64 | 4c 61 65 6e 67 65 0a 20 | D0,Read|Laenge. |
|00004110| 20 20 20 4c 65 61 20 50 | 46 61 64 2c 61 30 0a 20 |   Lea P|Fad,a0. |
|00004120| 20 20 20 61 64 64 2e 6c | 20 6f 6b 2c 61 30 0a 2e |   add.l| ok,a0..|
|00004130| 6c 31 3a 63 6d 70 69 2e | 62 20 23 22 2f 22 2c 28 |l1:cmpi.|b #"/",(|
|00004140| 61 30 29 0a 20 20 20 20 | 62 65 71 20 2e 54 68 61 |a0).    |beq .Tha|
|00004150| 74 73 69 74 0a 20 20 20 | 20 63 6d 70 69 2e 62 20 |tsit.   | cmpi.b |
|00004160| 23 22 3a 22 2c 28 61 30 | 29 0a 20 20 20 20 62 65 |#":",(a0|).    be|
|00004170| 71 20 2e 54 68 61 74 73 | 69 74 0a 20 20 20 20 6c |q .Thats|it.    l|
|00004180| 65 61 20 2d 31 28 61 30 | 29 2c 61 30 0a 20 20 20 |ea -1(a0|),a0.   |
|00004190| 20 62 72 61 20 2e 6c 31 | 0a 2e 54 68 61 74 73 49 | bra .l1|..ThatsI|
|000041a0| 74 3a 0a 20 20 20 20 6c | 65 61 20 31 28 61 30 29 |t:.    l|ea 1(a0)|
|000041b0| 2c 61 30 0a 20 20 20 20 | 6d 6f 76 65 2e 62 20 23 |,a0.    |move.b #|
|000041c0| 30 2c 28 61 30 29 2b 0a | 20 20 20 20 52 54 53 0a |0,(a0)+.|    RTS.|
|000041d0| 0a 53 65 74 50 66 61 64 | 5f 43 6f 6d 70 61 72 65 |.SetPfad|_Compare|
|000041e0| 3a 20 20 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |:  .    |Move.l #|
|000041f0| 70 66 61 64 32 2c 41 30 | 0a 20 20 20 20 4a 73 72 |pfad2,A0|.    Jsr|
|00004200| 20 43 6f 75 6e 74 53 74 | 72 69 6e 67 0a 20 20 20 | CountSt|ring.   |
|00004210| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 4f 4b 0a 20 20 | Move.l |D0,OK.  |
|00004220| 20 20 4c 65 61 20 50 46 | 61 64 32 2c 61 30 0a 20 |  Lea PF|ad2,a0. |
|00004230| 20 20 20 61 64 64 2e 6c | 20 6f 6b 2c 61 30 0a 2e |   add.l| ok,a0..|
|00004240| 6c 31 3a 63 6d 70 69 2e | 62 20 23 22 2f 22 2c 28 |l1:cmpi.|b #"/",(|
|00004250| 61 30 29 0a 20 20 20 20 | 62 65 71 20 2e 54 68 61 |a0).    |beq .Tha|
|00004260| 74 73 69 74 0a 20 20 20 | 20 63 6d 70 69 2e 62 20 |tsit.   | cmpi.b |
|00004270| 23 22 3a 22 2c 28 61 30 | 29 0a 20 20 20 20 62 65 |#":",(a0|).    be|
|00004280| 71 20 2e 54 68 61 74 73 | 69 74 0a 20 20 20 20 6c |q .Thats|it.    l|
|00004290| 65 61 20 2d 31 28 61 30 | 29 2c 61 30 0a 20 20 20 |ea -1(a0|),a0.   |
|000042a0| 20 62 72 61 20 2e 6c 31 | 0a 2e 54 68 61 74 73 49 | bra .l1|..ThatsI|
|000042b0| 74 3a 0a 20 20 20 20 6c | 65 61 20 31 28 61 30 29 |t:.    l|ea 1(a0)|
|000042c0| 2c 61 30 0a 20 20 20 20 | 6d 6f 76 65 2e 62 20 23 |,a0.    |move.b #|
|000042d0| 30 2c 28 61 30 29 2b 0a | 20 20 20 20 52 54 53 0a |0,(a0)+.|    RTS.|
|000042e0| 0a 43 6f 6d 70 61 72 65 | 50 66 61 64 3a 20 20 20 |.Compare|Pfad:   |
|000042f0| 20 20 20 20 0a 20 20 20 | 20 6d 6f 76 65 2e 62 20 |    .   | move.b |
|00004300| 28 61 30 29 2b 2c 64 30 | 0a 20 20 20 20 6d 6f 76 |(a0)+,d0|.    mov|
|00004310| 65 2e 62 20 28 61 31 29 | 2b 2c 64 31 0a 20 20 20 |e.b (a1)|+,d1.   |
|00004320| 20 63 6d 70 69 2e 62 20 | 64 30 2c 64 31 0a 20 20 | cmpi.b |d0,d1.  |
|00004330| 20 20 62 6e 65 20 2e 64 | 69 73 6d 61 74 63 68 0a |  bne .d|ismatch.|
|00004340| 20 20 20 20 63 6d 70 69 | 2e 62 20 23 30 2c 28 61 |    cmpi|.b #0,(a|
|00004350| 30 29 0a 20 20 20 20 62 | 6e 65 20 43 6f 6d 70 61 |0).    b|ne Compa|
|00004360| 72 65 50 66 61 64 0a 20 | 20 20 20 6d 6f 76 65 71 |rePfad. |   moveq|
|00004370| 2e 6c 20 23 2d 31 2c 64 | 30 0a 20 20 20 20 52 54 |.l #-1,d|0.    RT|
|00004380| 53 0a 2e 64 69 73 6d 61 | 74 63 68 3a 0a 20 20 20 |S..disma|tch:.   |
|00004390| 20 6d 6f 76 65 71 2e 6c | 20 23 30 2c 64 30 0a 20 | moveq.l| #0,d0. |
|000043a0| 20 20 20 52 54 53 0a 0a | 0a 43 72 75 6e 63 68 3a |   RTS..|.Crunch:|
|000043b0| 20 20 20 20 20 20 20 20 | 0a 20 20 20 20 4d 6f 76 |        |.    Mov|
|000043c0| 65 2e 6c 20 23 36 2c 47 | 61 64 67 65 74 0a 20 20 |e.l #6,G|adget.  |
|000043d0| 20 20 4d 6f 76 65 2e 6c | 20 23 35 30 2c 50 72 6f |  Move.l| #50,Pro|
|000043e0| 7a 65 6e 74 0a 20 20 20 | 20 4a 73 72 20 50 72 6f |zent.   | Jsr Pro|
|000043f0| 67 72 65 73 73 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |gress.  |  Move.l|
|00004400| 20 43 6f 75 6e 74 65 72 | 2c 44 30 0a 20 20 20 20 | Counter|,D0.    |
|00004410| 4d 75 6c 73 2e 6c 20 23 | 32 2c 44 30 0a 20 20 20 |Muls.l #|2,D0.   |
|00004420| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 43 6f 75 6e 74 | Move.l |D0,Count|
|00004430| 65 72 0a 20 20 20 20 4d | 6f 76 65 71 2e 6c 20 23 |er.    M|oveq.l #|
|00004440| 24 30 2c 44 30 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |$0,D0.  |  Move.l|
|00004450| 20 44 30 2c 43 6f 75 6e | 74 0a 20 20 20 20 4d 6f | D0,Coun|t.    Mo|
|00004460| 76 65 71 2e 6c 20 23 24 | 30 2c 44 30 0a 20 20 20 |veq.l #$|0,D0.   |
|00004470| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 52 65 61 64 4c | Move.l |D0,ReadL|
|00004480| 61 65 67 65 0a 20 20 20 | 20 4d 6f 76 65 71 2e 6c |aege.   | Moveq.l|
|00004490| 20 23 24 30 2c 44 30 0a | 20 20 20 20 4d 6f 76 65 | #$0,D0.|    Move|
|000044a0| 2e 6c 20 44 30 2c 57 72 | 69 74 65 6c 61 65 6e 67 |.l D0,Wr|itelaeng|
|000044b0| 65 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 48 61 6e |e.    Mo|ve.l Han|
|000044c0| 64 6c 65 2c 2d 28 61 37 | 29 0a 20 20 20 20 4d 6f |dle,-(a7|).    Mo|
|000044d0| 76 65 2e 6c 20 54 48 2c | 2d 28 61 37 29 0a 20 20 |ve.l TH,|-(a7).  |
|000044e0| 20 20 4d 6f 76 65 2e 6c | 20 4f 4b 2c 2d 28 61 37 |  Move.l| OK,-(a7|
|000044f0| 29 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 52 65 73 |).    Mo|ve.l Res|
|00004500| 75 6c 74 2c 2d 28 61 37 | 29 0a 20 20 20 20 4d 6f |ult,-(a7|).    Mo|
|00004510| 76 65 2e 6c 20 44 4f 53 | 42 61 73 65 2c 61 36 0a |ve.l DOS|Base,a6.|
|00004520| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 48 61 6e 64 6c |    Move|.l Handl|
|00004530| 65 2c 64 31 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |e,d1.   | Move.l |
|00004540| 23 4d 6f 64 65 5f 6f 6c | 64 2c 64 32 0a 20 20 20 |#Mode_ol|d,d2.   |
|00004550| 20 4a 73 72 20 4f 70 65 | 6e 28 61 36 29 0a 20 20 | Jsr Ope|n(a6).  |
|00004560| 20 20 4d 6f 76 65 2e 6c | 20 44 30 2c 48 61 6e 64 |  Move.l| D0,Hand|
|00004570| 6c 65 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 74 |le.    M|ove.l #t|
|00004580| 5f 73 77 61 70 6e 61 6d | 65 30 31 33 2c 64 31 0a |_swapnam|e013,d1.|
|00004590| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 6d 6f 64 65 |    Move|.l #mode|
|000045a0| 5f 6e 65 77 2c 64 32 0a | 20 20 20 20 4a 73 72 20 |_new,d2.|    Jsr |
|000045b0| 4f 70 65 6e 28 61 36 29 | 0a 20 20 20 20 4d 6f 76 |Open(a6)|.    Mov|
|000045c0| 65 2e 6c 20 44 30 2c 54 | 48 0a 20 20 20 20 4d 6f |e.l D0,T|H.    Mo|
|000045d0| 76 65 2e 6c 20 54 48 2c | 64 31 0a 20 20 20 20 4d |ve.l TH,|d1.    M|
|000045e0| 6f 76 65 2e 6c 20 23 43 | 4d 30 31 78 6e 6e 61 6d |ove.l #C|M01xnnam|
|000045f0| 65 30 31 34 2c 64 32 0a | 20 20 20 20 4d 6f 76 65 |e014,d2.|    Move|
|00004600| 2e 6c 20 23 35 2c 64 33 | 0a 20 20 20 20 4a 73 72 |.l #5,d3|.    Jsr|
|00004610| 20 57 72 69 74 65 28 61 | 36 29 0a 20 20 20 20 4d | Write(a|6).    M|
|00004620| 6f 76 65 2e 6c 20 48 61 | 6e 64 6c 65 2c 64 31 0a |ove.l Ha|ndle,d1.|
|00004630| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 50 66 61 64 |    Move|.l #Pfad|
|00004640| 2c 64 32 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |,d2.    |Move.l #|
|00004650| 31 35 30 2c 64 33 0a 20 | 20 20 20 4a 73 72 20 46 |150,d3. |   Jsr F|
|00004660| 67 65 74 73 28 61 36 29 | 0a 20 20 20 20 4d 6f 76 |gets(a6)|.    Mov|
|00004670| 65 2e 6c 20 44 30 2c 52 | 65 73 75 6c 74 0a 20 20 |e.l D0,R|esult.  |
|00004680| 20 20 4d 6f 76 65 2e 6c | 20 52 65 73 75 6c 74 2c |  Move.l| Result,|
|00004690| 64 30 0a 20 20 20 20 43 | 6d 70 2e 6c 20 23 50 66 |d0.    C|mp.l #Pf|
|000046a0| 61 64 2c 44 30 0a 20 20 | 20 20 42 6e 65 20 2e 65 |ad,D0.  |  Bne .e|
|000046b0| 6e 64 65 0a 2e 6c 30 3a | 0a 20 20 20 20 4a 73 72 |nde..l0:|.    Jsr|
|000046c0| 20 53 65 74 50 66 61 64 | 5f 43 72 75 6e 63 68 0a | SetPfad|_Crunch.|
|000046d0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 45 78 65 63 42 |    Move|.l ExecB|
|000046e0| 61 73 65 2c 61 36 0a 20 | 20 20 20 4d 6f 76 65 2e |ase,a6. |   Move.|
|000046f0| 6c 20 23 70 66 61 64 2c | 61 30 0a 20 20 20 20 4d |l #pfad,|a0.    M|
|00004700| 6f 76 65 2e 6c 20 23 50 | 66 61 64 5f 31 2c 61 31 |ove.l #P|fad_1,a1|
|00004710| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 31 35 30 |.    Mov|e.l #150|
|00004720| 2c 64 30 0a 20 20 20 20 | 4a 73 72 20 43 6f 70 79 |,d0.    |Jsr Copy|
|00004730| 6d 65 6d 28 61 36 29 0a | 2e 6c 31 3a 20 20 20 20 |mem(a6).|.l1:    |
|00004740| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 57 72 69 74 |.    Mov|e.l Writ|
|00004750| 65 6c 61 65 6e 67 65 2c | 44 30 0a 20 20 20 20 4d |elaenge,|D0.    M|
|00004760| 75 6c 73 2e 6c 20 23 31 | 30 30 2c 44 30 0a 20 20 |uls.l #1|00,D0.  |
|00004770| 20 20 4d 6f 76 65 2e 6c | 20 44 30 2c 50 72 6f 0a |  Move.l| D0,Pro.|
|00004780| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 50 72 6f 2c 44 |    Move|.l Pro,D|
|00004790| 30 0a 20 20 20 20 44 69 | 76 73 2e 6c 20 52 65 61 |0.    Di|vs.l Rea|
|000047a0| 64 4c 61 65 6e 67 65 2c | 44 30 0a 20 20 20 20 4d |dLaenge,|D0.    M|
|000047b0| 6f 76 65 2e 6c 20 44 30 | 2c 50 72 6f 0a 20 20 20 |ove.l D0|,Pro.   |
|000047c0| 20 4d 6f 76 65 2e 6c 20 | 23 37 2c 47 61 64 67 65 | Move.l |#7,Gadge|
|000047d0| 74 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 50 72 6f |t.    Mo|ve.l Pro|
|000047e0| 2c 50 72 6f 7a 65 6e 74 | 0a 20 20 20 20 4a 73 72 |,Prozent|.    Jsr|
|000047f0| 20 50 72 6f 67 72 65 73 | 73 0a 20 20 20 20 4d 6f | Progres|s.    Mo|
|00004800| 76 65 2e 6c 20 43 6f 75 | 6e 74 2c 44 30 0a 20 20 |ve.l Cou|nt,D0.  |
|00004810| 20 20 41 64 64 71 2e 6c | 20 23 31 2c 44 30 0a 20 |  Addq.l| #1,D0. |
|00004820| 20 20 20 4d 6f 76 65 2e | 6c 20 44 30 2c 43 6f 75 |   Move.|l D0,Cou|
|00004830| 6e 74 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 43 6f |nt.    M|ove.l Co|
|00004840| 75 6e 74 2c 44 30 0a 20 | 20 20 20 4d 75 6c 73 2e |unt,D0. |   Muls.|
|00004850| 6c 20 23 31 30 30 2c 44 | 30 0a 20 20 20 20 4d 6f |l #100,D|0.    Mo|
|00004860| 76 65 2e 6c 20 44 30 2c | 50 72 6f 0a 20 20 20 20 |ve.l D0,|Pro.    |
|00004870| 4d 6f 76 65 2e 6c 20 50 | 72 6f 2c 44 30 0a 20 20 |Move.l P|ro,D0.  |
|00004880| 20 20 44 69 76 73 2e 6c | 20 43 6f 75 6e 74 65 72 |  Divs.l| Counter|
|00004890| 2c 44 30 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 44 |,D0.    |Move.l D|
|000048a0| 30 2c 50 72 6f 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |0,Pro.  |  Move.l|
|000048b0| 20 50 72 6f 2c 44 30 0a | 20 20 20 20 41 64 64 2e | Pro,D0.|    Add.|
|000048c0| 6c 20 23 35 30 2c 44 30 | 0a 20 20 20 20 4d 6f 76 |l #50,D0|.    Mov|
|000048d0| 65 2e 6c 20 44 30 2c 50 | 72 6f 0a 20 20 20 20 4d |e.l D0,P|ro.    M|
|000048e0| 6f 76 65 2e 6c 20 23 36 | 2c 47 61 64 67 65 74 0a |ove.l #6|,Gadget.|
|000048f0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 50 72 6f 2c 50 |    Move|.l Pro,P|
|00004900| 72 6f 7a 65 6e 74 0a 20 | 20 20 20 4a 73 72 20 50 |rozent. |   Jsr P|
|00004910| 72 6f 67 72 65 73 73 0a | 20 20 20 20 4d 6f 76 65 |rogress.|    Move|
|00004920| 2e 6c 20 44 4f 53 42 61 | 73 65 2c 61 36 0a 20 20 |.l DOSBa|se,a6.  |
|00004930| 20 20 4d 6f 76 65 2e 6c | 20 48 61 6e 64 6c 65 2c |  Move.l| Handle,|
|00004940| 64 31 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 50 |d1.    M|ove.l #P|
|00004950| 66 61 64 2c 64 32 0a 20 | 20 20 20 4d 6f 76 65 2e |fad,d2. |   Move.|
|00004960| 6c 20 23 31 35 30 2c 64 | 33 0a 20 20 20 20 4a 73 |l #150,d|3.    Js|
|00004970| 72 20 46 67 65 74 73 28 | 61 36 29 0a 20 20 20 20 |r Fgets(|a6).    |
|00004980| 4d 6f 76 65 2e 6c 20 44 | 30 2c 52 65 73 75 6c 74 |Move.l D|0,Result|
|00004990| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 52 65 73 75 |.    Mov|e.l Resu|
|000049a0| 6c 74 2c 64 30 0a 20 20 | 20 20 43 6d 70 2e 6c 20 |lt,d0.  |  Cmp.l |
|000049b0| 23 50 66 61 64 2c 44 30 | 0a 20 20 20 20 42 6e 65 |#Pfad,D0|.    Bne|
|000049c0| 20 2e 65 6e 64 65 31 0a | 20 20 20 20 4d 6f 76 65 | .ende1.|    Move|
|000049d0| 2e 6c 20 23 50 66 61 64 | 2c 41 30 0a 20 20 20 20 |.l #Pfad|,A0.    |
|000049e0| 4a 73 72 20 43 6f 75 6e | 74 73 74 72 69 6e 67 0a |Jsr Coun|tstring.|
|000049f0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 44 30 2c 4f 4b |    Move|.l D0,OK|
|00004a00| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 52 65 61 64 |.    Mov|e.l Read|
|00004a10| 6c 61 65 6e 67 65 2c 44 | 30 0a 20 20 20 20 41 64 |laenge,D|0.    Ad|
|00004a20| 64 2e 6c 20 6f 6b 2c 44 | 30 0a 20 20 20 20 4d 6f |d.l ok,D|0.    Mo|
|00004a30| 76 65 2e 6c 20 44 30 2c | 52 65 61 64 6c 61 65 6e |ve.l D0,|Readlaen|
|00004a40| 67 65 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 45 78 |ge.    M|ove.l Ex|
|00004a50| 65 63 42 61 73 65 2c 61 | 36 0a 20 20 20 20 4d 6f |ecBase,a|6.    Mo|
|00004a60| 76 65 2e 6c 20 23 70 66 | 61 64 2c 61 30 0a 20 20 |ve.l #pf|ad,a0.  |
|00004a70| 20 20 4d 6f 76 65 2e 6c | 20 23 50 66 61 64 32 2c |  Move.l| #Pfad2,|
|00004a80| 61 31 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 31 |a1.    M|ove.l #1|
|00004a90| 35 30 2c 64 30 0a 20 20 | 20 20 4a 73 72 20 43 6f |50,d0.  |  Jsr Co|
|00004aa0| 70 79 6d 65 6d 28 61 36 | 29 0a 20 20 20 20 4a 73 |pymem(a6|).    Js|
|00004ab0| 72 20 53 65 74 50 66 61 | 64 5f 43 6f 6d 70 61 72 |r SetPfa|d_Compar|
|00004ac0| 65 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 50 66 |e.    Mo|ve.l #Pf|
|00004ad0| 61 64 32 2c 61 30 0a 20 | 20 20 20 4d 6f 76 65 2e |ad2,a0. |   Move.|
|00004ae0| 6c 20 23 50 66 61 64 5f | 31 2c 61 31 0a 20 20 20 |l #Pfad_|1,a1.   |
|00004af0| 20 4a 73 72 20 43 6f 6d | 70 61 72 65 50 66 61 64 | Jsr Com|parePfad|
|00004b00| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 30 2c 4d |.    Mov|e.l D0,M|
|00004b10| 61 74 63 68 0a 20 20 20 | 20 54 73 74 2e 6c 20 4d |atch.   | Tst.l M|
|00004b20| 61 74 63 68 0a 20 20 20 | 20 42 65 71 20 2e 6c 30 |atch.   | Beq .l0|
|00004b30| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 4f 53 42 |.    Mov|e.l DOSB|
|00004b40| 61 73 65 2c 61 36 0a 20 | 20 20 20 4d 6f 76 65 2e |ase,a6. |   Move.|
|00004b50| 6c 20 54 48 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |l TH,d1.|    Move|
|00004b60| 2e 6c 20 23 6e 61 6d 65 | 30 31 35 2c 64 32 0a 20 |.l #name|015,d2. |
|00004b70| 20 20 20 4d 6f 76 65 2e | 6c 20 23 31 2c 64 33 0a |   Move.|l #1,d3.|
|00004b80| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 31 2c 64 34 |    Move|.l #1,d4|
|00004b90| 0a 20 20 20 20 4a 73 72 | 20 46 77 72 69 74 65 28 |.    Jsr| Fwrite(|
|00004ba0| 61 36 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |a6).    |Move.l #|
|00004bb0| 50 66 61 64 2c 41 30 0a | 20 20 20 20 4a 73 72 20 |Pfad,A0.|    Jsr |
|00004bc0| 43 6f 75 6e 74 73 74 72 | 69 6e 67 0a 20 20 20 20 |Countstr|ing.    |
|00004bd0| 4d 6f 76 65 2e 6c 20 44 | 30 2c 4f 4b 0a 20 20 20 |Move.l D|0,OK.   |
|00004be0| 20 6c 65 61 20 70 66 61 | 64 2c 61 30 0a 20 20 20 | lea pfa|d,a0.   |
|00004bf0| 20 61 64 64 2e 6c 20 6f | 6b 2c 61 30 0a 2e 6c 32 | add.l o|k,a0..l2|
|00004c00| 3a 63 6d 70 69 2e 62 20 | 23 22 2f 22 2c 28 61 30 |:cmpi.b |#"/",(a0|
|00004c10| 29 0a 20 20 20 20 62 65 | 71 20 2e 54 68 61 74 73 |).    be|q .Thats|
|00004c20| 69 74 0a 20 20 20 20 63 | 6d 70 69 2e 62 20 23 22 |it.    c|mpi.b #"|
|00004c30| 3a 22 2c 28 61 30 29 0a | 20 20 20 20 62 65 71 20 |:",(a0).|    beq |
|00004c40| 2e 54 68 61 74 73 69 74 | 0a 20 20 20 20 6c 65 61 |.Thatsit|.    lea|
|00004c50| 20 2d 31 28 61 30 29 2c | 61 30 0a 20 20 20 20 62 | -1(a0),|a0.    b|
|00004c60| 72 61 20 2e 6c 32 0a 2e | 54 68 61 74 73 49 74 3a |ra .l2..|ThatsIt:|
|00004c70| 0a 20 20 20 20 6c 65 61 | 20 31 28 61 30 29 2c 61 |.    lea| 1(a0),a|
|00004c80| 30 0a 20 20 20 20 6d 6f | 76 65 2e 6c 20 61 30 2c |0.    mo|ve.l a0,|
|00004c90| 52 65 73 75 6c 74 0a 20 | 20 20 20 4d 6f 76 65 2e |Result. |   Move.|
|00004ca0| 6c 20 52 65 73 75 6c 74 | 2c 41 30 0a 20 20 20 20 |l Result|,A0.    |
|00004cb0| 4a 73 72 20 43 6f 75 6e | 74 73 74 72 69 6e 67 0a |Jsr Coun|tstring.|
|00004cc0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 44 30 2c 4f 4b |    Move|.l D0,OK|
|00004cd0| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 4f 53 42 |.    Mov|e.l DOSB|
|00004ce0| 61 73 65 2c 61 36 0a 20 | 20 20 20 4d 6f 76 65 2e |ase,a6. |   Move.|
|00004cf0| 6c 20 54 48 2c 64 31 0a | 20 20 20 20 4d 6f 76 65 |l TH,d1.|    Move|
|00004d00| 2e 6c 20 52 65 73 75 6c | 74 2c 64 32 0a 20 20 20 |.l Resul|t,d2.   |
|00004d10| 20 4d 6f 76 65 2e 6c 20 | 6f 6b 2c 64 33 0a 20 20 | Move.l |ok,d3.  |
|00004d20| 20 20 4d 6f 76 65 2e 6c | 20 23 31 2c 64 34 0a 20 |  Move.l| #1,d4. |
|00004d30| 20 20 20 4a 73 72 20 46 | 77 72 69 74 65 28 61 36 |   Jsr F|write(a6|
|00004d40| 29 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 4f 4b 2c |).    Mo|ve.l OK,|
|00004d50| 44 30 0a 20 20 20 20 41 | 64 64 71 2e 6c 20 23 31 |D0.    A|ddq.l #1|
|00004d60| 2c 44 30 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 44 |,D0.    |Move.l D|
|00004d70| 30 2c 4f 4b 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |0,OK.   | Move.l |
|00004d80| 57 72 69 74 65 6c 61 65 | 6e 67 65 2c 44 30 0a 20 |Writelae|nge,D0. |
|00004d90| 20 20 20 41 64 64 2e 6c | 20 4f 4b 2c 44 30 0a 20 |   Add.l| OK,D0. |
|00004da0| 20 20 20 4d 6f 76 65 2e | 6c 20 44 30 2c 57 72 69 |   Move.|l D0,Wri|
|00004db0| 74 65 4c 61 65 6e 67 65 | 0a 20 20 20 20 62 72 61 |teLaenge|.    bra|
|00004dc0| 20 2e 6c 31 0a 2e 65 6e | 64 65 31 3a 0a 20 20 20 | .l1..en|de1:.   |
|00004dd0| 20 4d 6f 76 65 2e 6c 20 | 54 48 2c 64 31 0a 20 20 | Move.l |TH,d1.  |
|00004de0| 20 20 4d 6f 76 65 2e 6c | 20 23 30 2c 64 32 0a 20 |  Move.l| #0,d2. |
|00004df0| 20 20 20 4d 6f 76 65 2e | 6c 20 23 4f 66 66 73 65 |   Move.|l #Offse|
|00004e00| 74 5f 62 65 67 69 6e 2c | 64 33 0a 20 20 20 20 4a |t_begin,|d3.    J|
|00004e10| 73 72 20 53 65 65 6b 28 | 61 36 29 0a 20 20 20 20 |sr Seek(|a6).    |
|00004e20| 4d 6f 76 65 2e 6c 20 48 | 61 6e 64 6c 65 2c 64 31 |Move.l H|andle,d1|
|00004e30| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 70 66 61 |.    Mov|e.l #pfa|
|00004e40| 64 2c 64 32 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |d,d2.   | Move.l |
|00004e50| 23 31 35 30 2c 64 33 0a | 20 20 20 20 4a 73 72 20 |#150,d3.|    Jsr |
|00004e60| 4e 61 6d 65 66 72 6f 6d | 46 48 28 61 36 29 0a 20 |Namefrom|FH(a6). |
|00004e70| 20 20 20 4d 6f 76 65 2e | 6c 20 48 61 6e 64 6c 65 |   Move.|l Handle|
|00004e80| 2c 64 31 0a 20 20 20 20 | 4a 73 72 20 43 6c 6f 73 |,d1.    |Jsr Clos|
|00004e90| 65 28 61 36 29 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |e(a6).  |  Move.l|
|00004ea0| 20 23 50 66 61 64 2c 64 | 31 0a 20 20 20 20 4d 6f | #Pfad,d|1.    Mo|
|00004eb0| 76 65 2e 6c 20 23 4d 6f | 64 65 5f 6e 65 77 2c 64 |ve.l #Mo|de_new,d|
|00004ec0| 32 0a 20 20 20 20 4a 73 | 72 20 4f 70 65 6e 28 61 |2.    Js|r Open(a|
|00004ed0| 36 29 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |6).    M|ove.l D0|
|00004ee0| 2c 48 61 6e 64 6c 65 0a | 20 20 20 20 4d 6f 76 65 |,Handle.|    Move|
|00004ef0| 2e 6c 20 54 48 2c 64 36 | 0a 20 20 20 20 4d 6f 76 |.l TH,d6|.    Mov|
|00004f00| 65 2e 6c 20 48 61 6e 64 | 6c 65 2c 64 37 0a 20 20 |e.l Hand|le,d7.  |
|00004f10| 20 20 4a 73 72 20 43 6f | 70 79 0a 20 20 20 20 4d |  Jsr Co|py.    M|
|00004f20| 6f 76 65 2e 6c 20 44 4f | 53 42 61 73 65 2c 61 36 |ove.l DO|SBase,a6|
|00004f30| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 54 48 2c 64 |.    Mov|e.l TH,d|
|00004f40| 31 0a 20 20 20 20 4a 73 | 72 20 43 6c 6f 73 65 28 |1.    Js|r Close(|
|00004f50| 61 36 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 68 |a6).    |Move.l h|
|00004f60| 61 6e 64 6c 65 2c 64 31 | 0a 20 20 20 20 4a 73 72 |andle,d1|.    Jsr|
|00004f70| 20 43 6c 6f 73 65 28 61 | 36 29 0a 20 20 20 20 4d | Close(a|6).    M|
|00004f80| 6f 76 65 2e 6c 20 23 54 | 5f 73 77 61 70 6e 61 6d |ove.l #T|_swapnam|
|00004f90| 65 30 31 36 2c 64 31 0a | 20 20 20 20 4a 73 72 20 |e016,d1.|    Jsr |
|00004fa0| 44 65 6c 65 74 65 66 69 | 6c 65 28 61 36 29 0a 20 |Deletefi|le(a6). |
|00004fb0| 20 20 20 62 72 61 20 2e | 65 6e 64 65 32 0a 2e 45 |   bra .|ende2..E|
|00004fc0| 6e 64 65 3a 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |nde:.   | Move.l |
|00004fd0| 54 48 2c 64 31 0a 20 20 | 20 20 4a 73 72 20 43 6c |TH,d1.  |  Jsr Cl|
|00004fe0| 6f 73 65 28 61 36 29 0a | 20 20 20 20 4d 6f 76 65 |ose(a6).|    Move|
|00004ff0| 2e 6c 20 68 61 6e 64 6c | 65 2c 64 31 0a 20 20 20 |.l handl|e,d1.   |
|00005000| 20 4a 73 72 20 43 6c 6f | 73 65 28 61 36 29 0a 2e | Jsr Clo|se(a6)..|
|00005010| 65 6e 64 65 32 3a 0a 20 | 20 20 20 4d 6f 76 65 2e |ende2:. |   Move.|
|00005020| 6c 20 28 61 37 29 2b 2c | 52 65 73 75 6c 74 0a 20 |l (a7)+,|Result. |
|00005030| 20 20 20 4d 6f 76 65 2e | 6c 20 28 61 37 29 2b 2c |   Move.|l (a7)+,|
|00005040| 4f 4b 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 28 61 |OK.    M|ove.l (a|
|00005050| 37 29 2b 2c 54 48 0a 20 | 20 20 20 4d 6f 76 65 2e |7)+,TH. |   Move.|
|00005060| 6c 20 28 61 37 29 2b 2c | 48 61 6e 64 6c 65 0a 20 |l (a7)+,|Handle. |
|00005070| 20 20 20 4d 6f 76 65 2e | 6c 20 23 36 2c 47 61 64 |   Move.|l #6,Gad|
|00005080| 67 65 74 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |get.    |Move.l #|
|00005090| 31 30 30 2c 50 72 6f 7a | 65 6e 74 0a 20 20 20 20 |100,Proz|ent.    |
|000050a0| 4a 73 72 20 50 72 6f 67 | 72 65 73 73 0a 20 20 20 |Jsr Prog|ress.   |
|000050b0| 20 52 54 53 0a 0a 44 65 | 63 72 75 6e 63 68 3a 20 | RTS..De|crunch: |
|000050c0| 20 20 20 20 20 20 20 0a | 20 20 20 20 4d 6f 76 65 |       .|    Move|
|000050d0| 71 2e 6c 20 23 24 31 2c | 44 30 0a 20 20 20 20 4d |q.l #$1,|D0.    M|
|000050e0| 6f 76 65 2e 6c 20 44 30 | 2c 43 6f 75 6e 74 66 69 |ove.l D0|,Countfi|
|000050f0| 6c 65 73 0a 20 20 20 20 | 4d 6f 76 65 71 2e 6c 20 |les.    |Moveq.l |
|00005100| 23 24 31 2c 44 30 0a 20 | 20 20 20 4d 6f 76 65 2e |#$1,D0. |   Move.|
|00005110| 6c 20 44 30 2c 43 6f 75 | 6e 74 44 69 72 73 0a 20 |l D0,Cou|ntDirs. |
|00005120| 20 20 20 4d 6f 76 65 71 | 2e 6c 20 23 24 30 2c 44 |   Moveq|.l #$0,D|
|00005130| 30 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 44 30 2c |0.    Mo|ve.l D0,|
|00005140| 4d 61 78 5a 65 6c 6c 65 | 6e 0a 20 20 20 20 4d 6f |MaxZelle|n.    Mo|
|00005150| 76 65 2e 6c 20 48 61 6e | 64 6c 65 2c 2d 28 61 37 |ve.l Han|dle,-(a7|
|00005160| 29 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 54 48 2c |).    Mo|ve.l TH,|
|00005170| 2d 28 61 37 29 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |-(a7).  |  Move.l|
|00005180| 20 4f 4b 2c 2d 28 61 37 | 29 0a 20 20 20 20 4d 6f | OK,-(a7|).    Mo|
|00005190| 76 65 2e 6c 20 52 65 73 | 75 6c 74 2c 2d 28 61 37 |ve.l Res|ult,-(a7|
|000051a0| 29 0a 20 20 20 20 6d 6f | 76 65 2e 6c 20 68 61 6e |).    mo|ve.l han|
|000051b0| 64 6c 65 2c 61 30 0a 20 | 20 20 20 6d 6f 76 65 2e |dle,a0. |   move.|
|000051c0| 6c 20 28 61 30 29 2c 48 | 61 6e 64 6c 65 0a 20 20 |l (a0),H|andle.  |
|000051d0| 20 20 4d 6f 76 65 2e 6c | 20 44 4f 53 42 61 73 65 |  Move.l| DOSBase|
|000051e0| 2c 61 36 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 48 |,a6.    |Move.l H|
|000051f0| 61 6e 64 6c 65 2c 64 31 | 0a 20 20 20 20 4d 6f 76 |andle,d1|.    Mov|
|00005200| 65 2e 6c 20 23 50 66 61 | 64 2c 64 32 0a 20 20 20 |e.l #Pfa|d,d2.   |
|00005210| 20 4d 6f 76 65 2e 6c 20 | 23 31 35 30 2c 64 33 0a | Move.l |#150,d3.|
|00005220| 20 20 20 20 4a 73 72 20 | 46 67 65 74 73 28 61 36 |    Jsr |Fgets(a6|
|00005230| 29 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 50 66 61 |).    Mo|ve.l Pfa|
|00005240| 64 2c 64 30 0a 20 20 20 | 20 43 6d 70 2e 6c 20 23 |d,d0.   | Cmp.l #|
|00005250| 22 43 4d 30 31 22 2c 44 | 30 0a 20 20 20 20 42 6e |"CM01",D|0.    Bn|
|00005260| 65 20 2e 45 6e 64 65 0a | 20 20 20 20 4d 6f 76 65 |e .Ende.|    Move|
|00005270| 2e 6c 20 23 74 5f 73 77 | 61 70 6e 61 6d 65 30 31 |.l #t_sw|apname01|
|00005280| 37 2c 64 31 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |7,d1.   | Move.l |
|00005290| 23 6d 6f 64 65 5f 6e 65 | 77 2c 64 32 0a 20 20 20 |#mode_ne|w,d2.   |
|000052a0| 20 4a 73 72 20 4f 70 65 | 6e 28 61 36 29 0a 20 20 | Jsr Ope|n(a6).  |
|000052b0| 20 20 4d 6f 76 65 2e 6c | 20 44 30 2c 54 48 0a 20 |  Move.l| D0,TH. |
|000052c0| 20 20 20 4d 6f 76 65 2e | 6c 20 48 61 6e 64 6c 65 |   Move.|l Handle|
|000052d0| 2c 64 31 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |,d1.    |Move.l #|
|000052e0| 50 66 61 64 2c 64 32 0a | 20 20 20 20 4d 6f 76 65 |Pfad,d2.|    Move|
|000052f0| 2e 6c 20 23 31 35 30 2c | 64 33 0a 20 20 20 20 4a |.l #150,|d3.    J|
|00005300| 73 72 20 46 67 65 74 73 | 28 61 36 29 0a 20 20 20 |sr Fgets|(a6).   |
|00005310| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 52 65 73 75 6c | Move.l |D0,Resul|
|00005320| 74 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 52 65 73 |t.    Mo|ve.l Res|
|00005330| 75 6c 74 2c 64 30 0a 20 | 20 20 20 43 6d 70 2e 6c |ult,d0. |   Cmp.l|
|00005340| 20 23 50 66 61 64 2c 44 | 30 0a 20 20 20 20 42 6e | #Pfad,D|0.    Bn|
|00005350| 65 20 2e 65 6e 64 65 0a | 20 20 20 20 62 72 61 20 |e .ende.|    bra |
|00005360| 2e 6c 30 0a 2e 6c 30 30 | 3a 0a 20 20 20 20 4d 6f |.l0..l00|:.    Mo|
|00005370| 76 65 2e 6c 20 45 78 65 | 63 42 61 73 65 2c 61 36 |ve.l Exe|cBase,a6|
|00005380| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 50 66 61 |.    Mov|e.l #Pfa|
|00005390| 64 5f 31 2c 61 30 0a 20 | 20 20 20 4d 6f 76 65 2e |d_1,a0. |   Move.|
|000053a0| 6c 20 23 50 66 61 64 2c | 61 31 0a 20 20 20 20 4d |l #Pfad,|a1.    M|
|000053b0| 6f 76 65 2e 6c 20 23 31 | 35 30 2c 64 30 0a 20 20 |ove.l #1|50,d0.  |
|000053c0| 20 20 4a 73 72 20 43 6f | 70 79 4d 65 6d 28 61 36 |  Jsr Co|pyMem(a6|
|000053d0| 29 0a 2e 6c 30 3a 0a 20 | 20 20 20 4d 6f 76 65 2e |)..l0:. |   Move.|
|000053e0| 6c 20 43 6f 75 6e 74 64 | 69 72 73 2c 44 30 0a 20 |l Countd|irs,D0. |
|000053f0| 20 20 20 41 64 64 71 2e | 6c 20 23 31 2c 44 30 0a |   Addq.|l #1,D0.|
|00005400| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 44 30 2c 43 6f |    Move|.l D0,Co|
|00005410| 75 6e 74 64 69 72 73 0a | 20 20 20 20 4a 73 72 20 |untdirs.|    Jsr |
|00005420| 53 65 74 50 66 61 64 0a | 2e 6c 31 3a 20 20 20 20 |SetPfad.|.l1:    |
|00005430| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 44 4f 53 42 |.    Mov|e.l DOSB|
|00005440| 61 73 65 2c 61 36 0a 20 | 20 20 20 4d 6f 76 65 2e |ase,a6. |   Move.|
|00005450| 6c 20 48 61 6e 64 6c 65 | 2c 64 31 0a 20 20 20 20 |l Handle|,d1.    |
|00005460| 4d 6f 76 65 2e 6c 20 23 | 50 66 61 64 5f 31 2c 64 |Move.l #|Pfad_1,d|
|00005470| 32 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 31 35 |2.    Mo|ve.l #15|
|00005480| 30 2c 64 33 0a 20 20 20 | 20 4a 73 72 20 46 67 65 |0,d3.   | Jsr Fge|
|00005490| 74 73 28 61 36 29 0a 20 | 20 20 20 4d 6f 76 65 2e |ts(a6). |   Move.|
|000054a0| 6c 20 44 30 2c 52 65 73 | 75 6c 74 0a 20 20 20 20 |l D0,Res|ult.    |
|000054b0| 4d 6f 76 65 2e 6c 20 52 | 65 73 75 6c 74 2c 64 30 |Move.l R|esult,d0|
|000054c0| 0a 20 20 20 20 43 6d 70 | 2e 6c 20 23 50 66 61 64 |.    Cmp|.l #Pfad|
|000054d0| 5f 31 2c 44 30 0a 20 20 | 20 20 42 6e 65 20 2e 65 |_1,D0.  |  Bne .e|
|000054e0| 6e 64 65 31 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |nde1.   | Move.l |
|000054f0| 23 70 66 61 64 5f 31 2c | 61 30 0a 20 20 20 20 4a |#pfad_1,|a0.    J|
|00005500| 73 72 20 43 6f 75 6e 74 | 43 65 6c 6c 73 0a 20 20 |sr Count|Cells.  |
|00005510| 20 20 4d 6f 76 65 2e 6c | 20 44 30 2c 5a 65 6c 6c |  Move.l| D0,Zell|
|00005520| 65 6e 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 5a 65 |en.    M|ove.l Ze|
|00005530| 6c 6c 65 6e 2c 64 30 0a | 20 20 20 20 43 6d 70 2e |llen,d0.|    Cmp.|
|00005540| 6c 20 6d 61 78 5a 65 6c | 6c 65 6e 2c 44 30 0a 20 |l maxZel|len,D0. |
|00005550| 20 20 20 42 67 74 20 2e | 70 72 65 30 30 30 30 0a |   Bgt .|pre0000.|
|00005560| 20 20 20 20 42 72 61 20 | 2e 50 72 65 30 30 30 31 |    Bra |.Pre0001|
|00005570| 0a 2e 50 72 65 30 30 30 | 30 3a 0a 0a 20 20 20 20 |..Pre000|0:..    |
|00005580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005590| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 5a 65 6c |      Mo|ve.l Zel|
|000055a0| 6c 65 6e 2c 44 30 0a 20 | 20 20 20 20 20 20 20 20 |len,D0. |        |
|000055b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000055c0| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 6d 61 78 5a 65 | Move.l |D0,maxZe|
|000055d0| 6c 6c 65 6e 0a 20 20 20 | 20 20 20 20 20 20 20 20 |llen.   |        |
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0a 2e 50 |        |     ..P|
|000055f0| 72 65 30 30 30 31 3a 0a | 20 20 20 20 20 20 20 20 |re0001:.|        |
|00005600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0a 20 20 |        |     .  |
|00005640| 20 20 4d 6f 76 65 2e 6c | 20 43 6f 75 6e 74 66 69 |  Move.l| Countfi|
|00005650| 6c 65 73 2c 44 30 0a 20 | 20 20 20 41 64 64 71 2e |les,D0. |   Addq.|
|00005660| 6c 20 23 31 2c 44 30 0a | 20 20 20 20 4d 6f 76 65 |l #1,D0.|    Move|
|00005670| 2e 6c 20 44 30 2c 43 6f | 75 6e 74 66 69 6c 65 73 |.l D0,Co|untfiles|
|00005680| 0a 20 20 20 20 43 6d 70 | 69 2e 62 20 23 22 25 22 |.    Cmp|i.b #"%"|
|00005690| 2c 70 66 61 64 5f 31 0a | 20 20 20 20 62 6e 65 20 |,pfad_1.|    bne |
|000056a0| 2e 6c 30 30 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |.l00.   | Move.l |
|000056b0| 44 4f 53 42 61 73 65 2c | 61 36 0a 20 20 20 20 4d |DOSBase,|a6.    M|
|000056c0| 6f 76 65 2e 6c 20 54 48 | 2c 64 31 0a 20 20 20 20 |ove.l TH|,d1.    |
|000056d0| 4d 6f 76 65 2e 6c 20 23 | 50 66 61 64 2c 64 32 0a |Move.l #|Pfad,d2.|
|000056e0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 4f 4b 2c 64 33 |    Move|.l OK,d3|
|000056f0| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 31 2c 64 |.    Mov|e.l #1,d|
|00005700| 34 0a 20 20 20 20 4a 73 | 72 20 46 57 72 69 74 65 |4.    Js|r FWrite|
|00005710| 28 61 36 29 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |(a6).   | Move.l |
|00005720| 54 48 2c 64 31 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |TH,d1.  |  Move.l|
|00005730| 20 23 50 66 61 64 5f 31 | 2b 31 2c 64 32 0a 20 20 | #Pfad_1|+1,d2.  |
|00005740| 20 20 4a 73 72 20 46 50 | 75 74 73 28 61 36 29 0a |  Jsr FP|uts(a6).|
|00005750| 20 20 20 20 62 72 61 20 | 2e 6c 31 0a 2e 65 6e 64 |    bra |.l1..end|
|00005760| 65 31 3a 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 48 |e1:.    |Move.l H|
|00005770| 61 6e 64 6c 65 2c 64 31 | 0a 20 20 20 20 4a 73 72 |andle,d1|.    Jsr|
|00005780| 20 43 6c 6f 73 65 28 61 | 36 29 0a 20 20 20 20 6d | Close(a|6).    m|
|00005790| 6f 76 65 2e 6c 20 54 48 | 2c 44 37 0a 20 20 20 20 |ove.l TH|,D7.    |
|000057a0| 4d 6f 76 65 2e 6c 20 44 | 37 2c 64 31 0a 20 20 20 |Move.l D|7,d1.   |
|000057b0| 20 4d 6f 76 65 2e 6c 20 | 23 30 2c 64 32 0a 20 20 | Move.l |#0,d2.  |
|000057c0| 20 20 4d 6f 76 65 2e 6c | 20 23 4f 66 66 73 65 74 |  Move.l| #Offset|
|000057d0| 5f 42 65 67 69 6e 2c 64 | 33 0a 20 20 20 20 4a 73 |_Begin,d|3.    Js|
|000057e0| 72 20 53 65 65 6b 28 61 | 36 29 0a 20 20 20 20 4d |r Seek(a|6).    M|
|000057f0| 6f 76 65 2e 6c 20 28 61 | 37 29 2b 2c 52 65 73 75 |ove.l (a|7)+,Resu|
|00005800| 6c 74 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 28 61 |lt.    M|ove.l (a|
|00005810| 37 29 2b 2c 4f 4b 0a 20 | 20 20 20 4d 6f 76 65 2e |7)+,OK. |   Move.|
|00005820| 6c 20 28 61 37 29 2b 2c | 54 48 0a 20 20 20 20 4d |l (a7)+,|TH.    M|
|00005830| 6f 76 65 2e 6c 20 28 61 | 37 29 2b 2c 61 30 0a 20 |ove.l (a|7)+,a0. |
|00005840| 20 20 20 6d 6f 76 65 2e | 6c 20 44 37 2c 28 61 30 |   move.|l D7,(a0|
|00005850| 29 0a 20 20 20 20 52 54 | 53 0a 2e 65 6e 64 65 3a |).    RT|S..ende:|
|00005860| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 48 61 6e 64 |.    Mov|e.l Hand|
|00005870| 6c 65 2c 64 31 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |le,d1.  |  Move.l|
|00005880| 20 23 30 2c 64 32 0a 20 | 20 20 20 4d 6f 76 65 2e | #0,d2. |   Move.|
|00005890| 6c 20 23 4f 66 66 73 65 | 74 5f 42 65 67 69 6e 2c |l #Offse|t_Begin,|
|000058a0| 64 33 0a 20 20 20 20 4a | 73 72 20 53 65 65 6b 28 |d3.    J|sr Seek(|
|000058b0| 61 36 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 28 |a6).    |Move.l (|
|000058c0| 61 37 29 2b 2c 52 65 73 | 75 6c 74 0a 20 20 20 20 |a7)+,Res|ult.    |
|000058d0| 4d 6f 76 65 2e 6c 20 28 | 61 37 29 2b 2c 4f 4b 0a |Move.l (|a7)+,OK.|
|000058e0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 28 61 37 29 2b |    Move|.l (a7)+|
|000058f0| 2c 54 48 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 28 |,TH.    |Move.l (|
|00005900| 61 37 29 2b 2c 48 61 6e | 64 6c 65 0a 20 20 20 20 |a7)+,Han|dle.    |
|00005910| 52 54 53 0a 0a 50 72 6f | 67 72 65 73 73 66 69 6c |RTS..Pro|gressfil|
|00005920| 65 73 3a 20 20 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |es:  .  |  Move.l|
|00005930| 20 43 6f 75 6e 74 65 72 | 2c 44 30 0a 20 20 20 20 | Counter|,D0.    |
|00005940| 41 64 64 71 2e 6c 20 23 | 31 2c 44 30 0a 20 20 20 |Addq.l #|1,D0.   |
|00005950| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 43 6f 75 6e 74 | Move.l |D0,Count|
|00005960| 65 72 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 46 69 |er.    M|ove.l Fi|
|00005970| 6c 65 73 2c 44 30 0a 20 | 20 20 20 41 64 64 71 2e |les,D0. |   Addq.|
|00005980| 6c 20 23 31 2c 44 30 0a | 20 20 20 20 4d 6f 76 65 |l #1,D0.|    Move|
|00005990| 2e 6c 20 44 30 2c 46 69 | 6c 65 73 0a 20 20 20 20 |.l D0,Fi|les.    |
|000059a0| 4d 6f 76 65 2e 6c 20 46 | 69 6c 65 73 2c 64 30 0a |Move.l F|iles,d0.|
|000059b0| 20 20 20 20 43 6d 70 2e | 6c 20 23 31 30 2c 44 30 |    Cmp.|l #10,D0|
|000059c0| 0a 20 20 20 20 42 6c 74 | 20 2e 65 6e 64 65 0a 20 |.    Blt| .ende. |
|000059d0| 20 20 20 4d 6f 76 65 71 | 2e 6c 20 23 24 30 2c 44 |   Moveq|.l #$0,D|
|000059e0| 30 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 44 30 2c |0.    Mo|ve.l D0,|
|000059f0| 46 69 6c 65 73 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |Files.  |  Move.l|
|00005a00| 20 4d 65 72 6b 65 72 2c | 44 30 0a 20 20 20 20 41 | Merker,|D0.    A|
|00005a10| 64 64 71 2e 6c 20 23 31 | 2c 44 30 0a 20 20 20 20 |ddq.l #1|,D0.    |
|00005a20| 4d 6f 76 65 2e 6c 20 44 | 30 2c 4d 65 72 6b 65 72 |Move.l D|0,Merker|
|00005a30| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 4d 65 72 6b |.    Mov|e.l Merk|
|00005a40| 65 72 2c 64 30 0a 20 20 | 20 20 43 6d 70 2e 6c 20 |er,d0.  |  Cmp.l |
|00005a50| 23 31 30 31 2c 44 30 0a | 20 20 20 20 42 6c 74 20 |#101,D0.|    Blt |
|00005a60| 2e 6c 31 0a 20 20 20 20 | 4d 6f 76 65 71 2e 6c 20 |.l1.    |Moveq.l |
|00005a70| 23 24 30 2c 44 30 0a 20 | 20 20 20 4d 6f 76 65 2e |#$0,D0. |   Move.|
|00005a80| 6c 20 44 30 2c 4d 65 72 | 6b 65 72 0a 2e 6c 31 3a |l D0,Mer|ker..l1:|
|00005a90| 0a 20 20 20 20 4c 65 61 | 20 53 65 74 50 72 6f 67 |.    Lea| SetProg|
|00005aa0| 72 65 73 73 54 61 67 73 | 2c 61 30 0a 20 20 20 20 |ressTags|,a0.    |
|00005ab0| 6d 6f 76 65 2e 6c 20 4d | 65 72 6b 65 72 2c 34 28 |move.l M|erker,4(|
|00005ac0| 61 30 29 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 47 |a0).    |Move.l G|
|00005ad0| 55 49 45 6e 76 42 61 73 | 65 2c 61 36 0a 20 20 20 |UIEnvBas|e,a6.   |
|00005ae0| 20 4d 6f 76 65 2e 6c 20 | 67 75 69 2c 41 30 0a 20 | Move.l |gui,A0. |
|00005af0| 20 20 20 4d 6f 76 65 2e | 6c 20 23 37 2c 44 30 0a |   Move.|l #7,D0.|
|00005b00| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 53 65 74 50 |    Move|.l #SetP|
|00005b10| 72 6f 67 72 65 73 73 54 | 61 67 73 2c 41 31 0a 20 |rogressT|ags,A1. |
|00005b20| 20 20 20 4a 73 72 20 53 | 65 74 47 55 49 47 61 64 |   Jsr S|etGUIGad|
|00005b30| 67 65 74 41 28 61 36 29 | 0a 2e 65 6e 64 65 3a 0a |getA(a6)|..ende:.|
|00005b40| 20 20 20 20 52 54 53 0a | 0a 50 72 6f 67 72 65 73 |    RTS.|.Progres|
|00005b50| 73 52 65 61 64 6c 69 6e | 65 73 3a 20 20 0a 20 20 |sReadlin|es:  .  |
|00005b60| 20 20 4d 6f 76 65 2e 6c | 20 43 6f 75 6e 74 65 72 |  Move.l| Counter|
|00005b70| 2c 44 30 0a 20 20 20 20 | 41 64 64 71 2e 6c 20 23 |,D0.    |Addq.l #|
|00005b80| 31 2c 44 30 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |1,D0.   | Move.l |
|00005b90| 44 30 2c 43 6f 75 6e 74 | 65 72 0a 20 20 20 20 4d |D0,Count|er.    M|
|00005ba0| 6f 76 65 2e 6c 20 43 6f | 75 6e 74 65 72 2c 64 30 |ove.l Co|unter,d0|
|00005bb0| 0a 20 20 20 20 43 6d 70 | 2e 6c 20 23 31 30 2c 44 |.    Cmp|.l #10,D|
|00005bc0| 30 0a 20 20 20 20 42 6c | 74 20 2e 65 6e 64 65 0a |0.    Bl|t .ende.|
|00005bd0| 20 20 20 20 4d 6f 76 65 | 71 2e 6c 20 23 24 30 2c |    Move|q.l #$0,|
|00005be0| 44 30 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |D0.    M|ove.l D0|
|00005bf0| 2c 43 6f 75 6e 74 65 72 | 0a 20 20 20 20 4d 6f 76 |,Counter|.    Mov|
|00005c00| 65 2e 6c 20 4d 65 72 6b | 65 72 2c 44 30 0a 20 20 |e.l Merk|er,D0.  |
|00005c10| 20 20 41 64 64 71 2e 6c | 20 23 31 2c 44 30 0a 20 |  Addq.l| #1,D0. |
|00005c20| 20 20 20 4d 6f 76 65 2e | 6c 20 44 30 2c 4d 65 72 |   Move.|l D0,Mer|
|00005c30| 6b 65 72 0a 20 20 20 20 | 4d 6f 76 65 2e 6c 20 4d |ker.    |Move.l M|
|00005c40| 65 72 6b 65 72 2c 64 30 | 0a 20 20 20 20 43 6d 70 |erker,d0|.    Cmp|
|00005c50| 2e 6c 20 23 31 30 31 2c | 44 30 0a 20 20 20 20 42 |.l #101,|D0.    B|
|00005c60| 6c 74 20 2e 6c 31 0a 20 | 20 20 20 4d 6f 76 65 71 |lt .l1. |   Moveq|
|00005c70| 2e 6c 20 23 24 30 2c 44 | 30 0a 20 20 20 20 4d 6f |.l #$0,D|0.    Mo|
|00005c80| 76 65 2e 6c 20 44 30 2c | 4d 65 72 6b 65 72 0a 2e |ve.l D0,|Merker..|
|00005c90| 6c 31 3a 0a 20 20 20 20 | 4c 65 61 20 53 65 74 50 |l1:.    |Lea SetP|
|00005ca0| 72 6f 67 72 65 73 73 54 | 61 67 73 2c 61 30 0a 20 |rogressT|ags,a0. |
|00005cb0| 20 20 20 6d 6f 76 65 2e | 6c 20 4d 65 72 6b 65 72 |   move.|l Merker|
|00005cc0| 2c 34 28 61 30 29 0a 20 | 20 20 20 4d 6f 76 65 2e |,4(a0). |   Move.|
|00005cd0| 6c 20 47 55 49 45 6e 76 | 42 61 73 65 2c 61 36 0a |l GUIEnv|Base,a6.|
|00005ce0| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 67 75 69 2c 41 |    Move|.l gui,A|
|00005cf0| 30 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 37 2c |0.    Mo|ve.l #7,|
|00005d00| 44 30 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 53 |D0.    M|ove.l #S|
|00005d10| 65 74 50 72 6f 67 72 65 | 73 73 54 61 67 73 2c 41 |etProgre|ssTags,A|
|00005d20| 31 0a 20 20 20 20 4a 73 | 72 20 53 65 74 47 55 49 |1.    Js|r SetGUI|
|00005d30| 47 61 64 67 65 74 41 28 | 61 36 29 0a 2e 65 6e 64 |GadgetA(|a6)..end|
|00005d40| 65 3a 0a 20 20 20 20 52 | 54 53 0a 0a 47 65 74 43 |e:.    R|TS..GetC|
|00005d50| 44 4e 61 6d 65 3a 20 20 | 20 0a 20 20 20 20 4d 6f |DName:  | .    Mo|
|00005d60| 76 65 2e 6c 20 44 4f 53 | 42 61 73 65 2c 61 36 0a |ve.l DOS|Base,a6.|
|00005d70| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 61 30 2c 64 31 |    Move|.l a0,d1|
|00005d80| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 41 63 63 |.    Mov|e.l #Acc|
|00005d90| 65 73 73 5f 72 65 61 64 | 2c 64 32 0a 20 20 20 20 |ess_read|,d2.    |
|00005da0| 4a 73 72 20 4c 6f 63 6b | 28 61 36 29 0a 20 20 20 |Jsr Lock|(a6).   |
|00005db0| 20 4d 6f 76 65 2e 6c 20 | 44 30 2c 44 69 72 6c 6f | Move.l |D0,Dirlo|
|00005dc0| 63 6b 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 69 |ck.    M|ove.l Di|
|00005dd0| 72 6c 6f 63 6b 2c 64 31 | 0a 20 20 20 20 4d 6f 76 |rlock,d1|.    Mov|
|00005de0| 65 2e 6c 20 23 43 44 4e | 61 6d 65 2c 64 32 0a 20 |e.l #CDN|ame,d2. |
|00005df0| 20 20 20 4d 6f 76 65 2e | 6c 20 23 31 30 30 2c 64 |   Move.|l #100,d|
|00005e00| 33 0a 20 20 20 20 4a 73 | 72 20 4e 61 6d 65 46 72 |3.    Js|r NameFr|
|00005e10| 6f 6d 4c 6f 63 6b 28 61 | 36 29 0a 20 20 20 20 54 |omLock(a|6).    T|
|00005e20| 73 74 2e 6c 20 44 69 72 | 6c 6f 63 6b 0a 20 20 20 |st.l Dir|lock.   |
|00005e30| 20 42 65 71 20 2e 65 6e | 64 65 0a 20 20 20 20 4d | Beq .en|de.    M|
|00005e40| 6f 76 65 2e 6c 20 44 69 | 72 6c 6f 63 6b 2c 64 31 |ove.l Di|rlock,d1|
|00005e50| 0a 20 20 20 20 4a 73 72 | 20 55 6e 6c 6f 63 6b 28 |.    Jsr| Unlock(|
|00005e60| 61 36 29 0a 2e 65 6e 64 | 65 3a 0a 20 20 20 20 52 |a6)..end|e:.    R|
|00005e70| 54 53 0a 0a 47 65 74 49 | 6e 64 65 78 3a 20 20 0a |TS..GetI|ndex:  .|
|00005e80| 20 20 20 20 4d 6f 76 65 | 71 2e 6c 20 23 24 30 2c |    Move|q.l #$0,|
|00005e90| 44 30 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |D0.    M|ove.l D0|
|00005ea0| 2c 5a 61 68 6c 0a 20 20 | 20 20 4d 6f 76 65 2e 6c |,Zahl.  |  Move.l|
|00005eb0| 20 44 4f 53 42 61 73 65 | 2c 61 36 0a 20 20 20 20 | DOSBase|,a6.    |
|00005ec0| 4d 6f 76 65 2e 6c 20 23 | 42 61 73 65 5f 43 44 5f |Move.l #|Base_CD_|
|00005ed0| 6e 61 6d 65 30 31 38 2c | 64 31 0a 20 20 20 20 4d |name018,|d1.    M|
|00005ee0| 6f 76 65 2e 6c 20 23 61 | 63 63 65 73 73 5f 72 65 |ove.l #a|ccess_re|
|00005ef0| 61 64 2c 64 32 0a 20 20 | 20 20 4a 73 72 20 4c 6f |ad,d2.  |  Jsr Lo|
|00005f00| 63 6b 28 61 36 29 0a 20 | 20 20 20 4d 6f 76 65 2e |ck(a6). |   Move.|
|00005f10| 6c 20 44 30 2c 44 69 72 | 6c 6f 63 6b 0a 20 20 20 |l D0,Dir|lock.   |
|00005f20| 20 4d 6f 76 65 2e 6c 20 | 23 46 69 62 2c 41 30 0a | Move.l |#Fib,A0.|
|00005f30| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 23 30 2c 44 30 |    Move|.l #0,D0|
|00005f40| 0a 20 20 20 20 4d 6f 76 | 65 2e 6c 20 23 33 30 30 |.    Mov|e.l #300|
|00005f50| 2c 44 31 0a 20 20 20 20 | 4a 73 72 20 46 69 6c 6c |,D1.    |Jsr Fill|
|00005f60| 42 75 66 66 65 72 0a 20 | 20 20 20 4d 6f 76 65 2e |Buffer. |   Move.|
|00005f70| 6c 20 44 4f 53 42 61 73 | 65 2c 61 36 0a 20 20 20 |l DOSBas|e,a6.   |
|00005f80| 20 4d 6f 76 65 2e 6c 20 | 44 69 72 6c 6f 63 6b 2c | Move.l |Dirlock,|
|00005f90| 64 31 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 23 46 |d1.    M|ove.l #F|
|00005fa0| 49 42 2c 64 32 0a 20 20 | 20 20 4a 73 72 20 45 78 |IB,d2.  |  Jsr Ex|
|00005fb0| 61 6d 69 6e 65 28 61 36 | 29 0a 2e 53 63 68 6c 65 |amine(a6|)..Schle|
|00005fc0| 69 66 65 3a 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |ife:.   | Move.l |
|00005fd0| 5a 61 68 6c 2c 44 30 0a | 20 20 20 20 41 64 64 71 |Zahl,D0.|    Addq|
|00005fe0| 2e 6c 20 23 31 2c 44 30 | 0a 20 20 20 20 4d 6f 76 |.l #1,D0|.    Mov|
|00005ff0| 65 2e 6c 20 44 30 2c 5a | 61 68 6c 0a 20 20 20 20 |e.l D0,Z|ahl.    |
|00006000| 4d 6f 76 65 2e 6c 20 44 | 69 72 6c 6f 63 6b 2c 64 |Move.l D|irlock,d|
|00006010| 31 0a 20 20 20 20 4d 6f | 76 65 2e 6c 20 23 46 49 |1.    Mo|ve.l #FI|
|00006020| 42 2c 64 32 0a 20 20 20 | 20 4a 73 72 20 45 78 4e |B,d2.   | Jsr ExN|
|00006030| 65 78 74 28 61 36 29 0a | 20 20 20 20 4d 6f 76 65 |ext(a6).|    Move|
|00006040| 2e 6c 20 44 30 2c 4f 4b | 0a 20 20 20 20 54 73 74 |.l D0,OK|.    Tst|
|00006050| 2e 6c 20 4f 6b 0a 20 20 | 20 20 42 6e 65 20 2e 53 |.l Ok.  |  Bne .S|
|00006060| 63 68 6c 65 69 66 65 0a | 20 20 20 20 4d 6f 76 65 |chleife.|    Move|
|00006070| 2e 6c 20 44 69 72 6c 6f | 63 6b 2c 64 31 0a 20 20 |.l Dirlo|ck,d1.  |
|00006080| 20 20 4a 73 72 20 55 6e | 6c 6f 63 6b 28 61 36 29 |  Jsr Un|lock(a6)|
|00006090| 0a 20 20 20 20 6d 6f 76 | 65 2e 6c 20 5a 61 68 6c |.    mov|e.l Zahl|
|000060a0| 2c 64 30 0a 20 20 20 20 | 52 54 53 0a 0a 41 6e 68 |,d0.    |RTS..Anh|
|000060b0| 61 65 6e 67 65 6e 3a 20 | 20 0a 20 20 20 20 4d 6f |aengen: | .    Mo|
|000060c0| 76 65 2e 6c 20 47 55 49 | 45 6e 76 42 61 73 65 2c |ve.l GUI|EnvBase,|
|000060d0| 61 36 0a 20 20 20 20 4d | 6f 76 65 2e 6c 20 47 75 |a6.    M|ove.l Gu|
|000060e0| 69 2c 41 30 0a 20 20 20 | 20 4d 6f 76 65 2e 6c 20 |i,A0.   | Move.l |
|000060f0| 23 53 63 68 6f 6e 5f 76 | 6f 72 68 61 6e 64 65 6e |#Schon_v|orhanden|
|00006100| 5f 61 6e 68 6e 61 6d 65 | 30 31 39 2c 41 31 0a 20 |_anhname|019,A1. |
|00006110| 20 20 20 4d 6f 76 65 2e | 6c 20 23 47 45 52 5f 59 |   Move.|l #GER_Y|
|00006120| 4e 43 6b 69 6e 64 2c 44 | 30 0a 20 20 20 20 4d 6f |NCkind,D|0.    Mo|
|00006130| 76 65 2e 6c 20 23 44 4f | 49 54 54 61 67 73 2c 41 |ve.l #DO|ITTags,A|
|00006140| 32 0a 20 20 20 20 4a 73 | 72 20 47 75 69 52 65 71 |2.    Js|r GuiReq|
|00006150| 75 65 73 74 41 28 61 36 | 29 0a 20 20 20 20 4d 6f |uestA(a6|).    Mo|
|00006160| 76 65 2e 6c 20 44 30 2c | 52 65 73 75 6c 74 0a 20 |ve.l D0,|Result. |
|00006170| 20 20 20 4d 6f 76 65 2e | 6c 20 52 65 73 75 6c 74 |   Move.|l Result|
|00006180| 2c 64 30 0a 20 20 20 20 | 43 6d 70 2e 6c 20 23 47 |,d0.    |Cmp.l #G|
|00006190| 45 52 5f 4e 6f 2c 44 30 | 0a 20 20 20 20 42 65 71 |ER_No,D0|.    Beq|
|000061a0| 20 2e 70 72 65 30 30 30 | 34 0a 20 20 20 20 42 72 | .pre000|4.    Br|
|000061b0| 61 20 2e 50 72 65 30 30 | 30 35 0a 2e 50 72 65 30 |a .Pre00|05..Pre0|
|000061c0| 30 30 34 3a 0a 0a 20 20 | 20 20 20 20 20 20 20 20 |004:..  |        |
|000061d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 6f 76 |        |     Mov|
|000061e0| 65 2e 6c 20 44 4f 53 42 | 61 73 65 2c 61 36 0a 20 |e.l DOSB|ase,a6. |
|000061f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006200| 20 20 20 20 20 20 4d 6f | 76 65 2e 6c 20 46 48 2c |      Mo|ve.l FH,|
|00006210| 64 31 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d1.     |        |
|00006220| 20 20 20 20 20 20 20 20 | 20 20 4a 73 72 20 43 6c |        |  Jsr Cl|
|00006230| 6f 73 65 28 61 36 29 0a | 20 20 20 20 20 20 20 20 |ose(a6).|        |
|00006240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4d |        |       M|
|00006250| 6f 76 65 2e 6c 20 23 42 | 75 66 66 65 72 2c 64 31 |ove.l #B|uffer,d1|
|00006260| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00006270| 20 20 20 20 20 20 20 20 | 4d 6f 76 65 2e 6c 20 23 |        |Move.l #|
|00006280| 4d 6f 64 65 5f 6e 65 77 | 2c 64 32 0a 20 20 20 20 |Mode_new|,d2.    |
|00006290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000062a0| 20 20 20 4a 73 72 20 4f | 70 65 6e 28 61 36 29 0a |   Jsr O|pen(a6).|
|000062b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000062c0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 30 |       M|ove.l D0|
|000062d0| 2c 46 48 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |,FH.    |        |
|000062e0| 20 20 20 20 20 20 20 20 | 20 20 0a 2e 50 72 65 30 |        |  ..Pre0|
|000062f0| 30 30 35 3a 0a 20 20 20 | 20 20 20 20 20 20 20 20 |005:.   |        |
|00006300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a |        |       .|
|00006360| 20 20 20 20 4d 6f 76 65 | 2e 6c 20 52 65 73 75 6c |    Move|.l Resul|
|00006370| 74 2c 64 30 0a 20 20 20 | 20 43 6d 70 2e 6c 20 23 |t,d0.   | Cmp.l #|
|00006380| 47 45 52 5f 43 61 6e 63 | 65 6c 2c 44 30 0a 20 20 |GER_Canc|el,D0.  |
|00006390| 20 20 42 65 71 20 2e 70 | 72 65 30 30 30 38 0a 20 |  Beq .p|re0008. |
|000063a0| 20 20 20 42 72 61 20 2e | 50 72 65 30 30 30 39 0a |   Bra .|Pre0009.|
|000063b0| 2e 50 72 65 30 30 30 38 | 3a 0a 0a 20 20 20 20 20 |.Pre0008|:..     |
|000063c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000063d0| 20 20 20 20 20 20 20 4d | 6f 76 65 2e 6c 20 44 4f |       M|ove.l DO|
|000063e0| 53 42 61 73 65 2c 61 36 | 0a 20 20 20 20 20 20 20 |SBase,a6|.       |
|000063f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
+--------+-------------------------+-------------------------+--------+--------+